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EDITORIAL 


The Archimedes Magazine 
and Support Group. 


This month's Tote software password is blackbird, 
(see BEEBUG pages on Micronet) 


This issue of RISC User completes volume one, and to commemorate our first birthday, we 
have prepared a special disc packed with goodies, which will be available to all valid 
members as at 1 November 1988 (see page 5 for further details). 


Amongst other things the disc contains a piece of software called ArcScan. This is a mouse- 
driven bibliographic program for locating items from RISC User. It comes with data for the first 
volume of RISC User, and for the first six volumes of BEEBUG magazine. Each RISC User 
monthly disc will contain data updates for that issue; and for those not subscribing to the 
monthly discs, we shall also be producing annual updates. 


ArcScan permits searching on up to two strings, with selectable logic and both asterisk and 
hash wildcards. Each record in the data contains the title of the item plus a set of keywords to 
make searching easy. This makes it a simple matter to locate any hint, review or program. 

For example, searching on the word MOUSE wilt find all articles, programs and hints relating 
to the mouse. The search routines are written in ARM code, and therefore operate at very 
high speed. The 120K BEEBUG database is searched in less than one second. As a further 
bibliographic aid, next month's magazine will contain a printed index for volume one. 


We hope that you have found RISC User volume one to be indispensable reading, and that 
volume two will prove to be even more so. 












PODULES AND BACKPLANES 

IFEL has just launched a four slot backplane for 300 
series machines, as an alternative to Acorn’s two slot 
option. The backplane, which comes complete with all the 
necessary fittings, and a cooling fan, costs £59,95 inc. 
VAT, and is available from IFEL. 36 Upland Drive, 
Derriford, Plymouth PL6 6BD, tel. (07555) 7286. 

Once you have got your backplane, SGB computer 
services can sell you a buffer podule for £49.50 inc VAT. 
allowing other podules to be mounted outside the 
computer. This simplifies the development of new 
podules, and also allows extra large podules to be fitted. 
SGB Computer Services are at 140 Disraeli Road, 
London SW1 5 2DX, tel. 01 -874 5675. 

A NEW DIMENSION FOR SPREADSHEETS 

Matrix-3 from Cambridge Microsystems is a new 
concept in spreadsheets. Unlike most packages, Matrix-3 
is three dimensional, with pages as well as rows and 
columns. A large number of mathematical functions are 
provided, and these can be combined to form not only 
simple expressions, but also complete programs which 
can then be stored in a single ceil. The display can show 
two windows, each with a different area of the 
spreadsheet. There are also a number of graph plotting 
features, and a complete help system. The package costs 
£109,25 inc, VAT from Cambridge Microsystems, 19 
Panton Street, Cambridge CB2 1HL, tel (0223) 66553. 

ALTERNATIVE HARD DISC 

Watford Electronics is producing a hard disc upgrade 
for the Archimedes, as a direct rival to Acorn's own 
version. The upgrade will consist of an internally fitted 3,5" 
Winchester drive and a controller podule, which must be 
fitted to a podule backplane, much the same as the Acorn 
upgrade. The Watford hard disc will be available in both 
20Mbyte and 40Mbyte versions (Acorn offers 20Mbyte 
only). The upgrades should be available sometime in 
October. While the price has yet to be fixed, Naiir Jessa 
says he expects the 40 Mbyte unit to be £100 less than 
Acorn's 20 Mbyte device (which is £575 inc. VAT). For 
more details, contact Watford Electronics, Jessa House, 
250 Lower High St„ Watford WD1 2 AIM, tel. (0923) 37774. 


CIRCUIT BOARD DESIGN 

ARC-PCB from Silicon Vision is a complete Printed 
Circuit Board (PCB) designing program. The system 
allows RGBs of up to eight layers to be drawn to a 
resolution of 1 Mil (1 thousandth of an inch). Each board 
can contain as many as 120.000 components, including 
surface mounted devices, with a facility for component 
libraries to be built up. The design can then be printed on 
an Epson printer, or a plotter, ready to produce the actual 
PCB. ARC-PCB costs £99.95 inc. VAT, or £195 inc. VAT 
for a version with automatic track routing. A demo disc is 
available for £5. Silicon Vision also offer complete PCB 
design systems including the software, an Archimedes, 
and a plotter. More information from Silicon Vision Ltd, 
Signal House. Lyon Road, Harrow. Middlesex HA1 2AG, 
tel. 01-422 2274. 

DFS READER 

Mew from BEEBUG is a package which enables DFS 
format files to be transferred to and from an Archimedes 
(for example using an external 5.25" disc drive). The 
reader software is in the form of a relocatable module, and 
will handle not only the Acorn DFS format discs, but also 
those produced with the Watford DFS and DOFS. The 
DFS reader costs £9.90 inc. VAT to RISC User members, 
while BEEBUG’s 5,25" interface is £27.60 inc. VAT. Both 
can be obtained from the address given on the back 
cover. 

PIPEDREAM SPELLING CHECKER 

To complement its Pipedream integrated word 
processor and spreadsheet (see RISC User Issue 8), 
Colton Software is releasing a spelling checker. The 
package will have a built in dictionary of between 80,000 
and 100,000 words, and any number of user dictionaries 
can be set up. There is an option to check text as it is 
typed in, or to check an entire document, in which case 
speeds of about 40,000 wpm a r e claimed. Piped ream 
Spellcheck should be available around mid-October at 
under £50. A voucher is also included to enable existing 
users to make the essential upgrade to the latest version 
2.2 of Pipedream free of charge. More details from Colton 
Software, Broadway House, 149-151 St Neots Road. 
Cambridge CB3 7QJ, tel. (0954) 211472. 
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SPECIAL DISC CONTAINS ALL THIS FOR JUST4,95 


1. ARCSCAN 

A fast on-screen bibliography with 
powerful search facilities for all the 
RISC User and BEEBTJG magazines. 
Normal price £12, 

2, PIXEL EDITOR 

This powerful drawing tool is a full 
screen fult-feature pixel editor for 
creating and editing screens and 
sprites, 

3* TOOLBOX 

This incredibly useful utility features a 
memory editor, memory search and 
replace, disc editor and disassembler, 
TOOLBOX contains many of the 
features found in packages costing 
over £35, 

4, WORLD IN MOTION 

A stunning animation with an oddly 
reminiscent feel to it. 

5, DISC MENU MODULE 

Use the mouse to control your disc 
files with this extremely useful 
relocatable module. 

6, PRINTER BUFFER 

This printer buffer frees your computer 
during tong printouts and is 
configurable from a few bytes to 4 
Mbytes, Similar to packages currently 
selling at £19, 


Altogether the items on the disc would be 
worth over £50 if bought separately , See your 
subscription reminder or next month's 
magazine for full details. 

























































A REAL-TIME IMAGE SPINNER 


Use this piece of code by Stephen Streafer to spin images around the screen in real-time. 


Because the ARM is so stunningly fast it is 
possible to rotate screen images in real-time on 
the Archimedes. The accompanying program 
does just that for any image in mode 12 or 13. 
When it is run it first loads a screen image 
(called SCREEN) from disc, and transfers it to 
a work area above the program. It then 
continually rotates and resizes the image in 
such a way that the picture appears from a 
point at the centre of the screen, rotating and 
growing in size until it occupies about hatf of 
the screen. 



Precisely how the image is manipulated 
depends on the parameters of the procedure 
PROCrot in line 140, There are five, as follows: 
the x and y co-ordinates of the centre of the 
displayed picture (these remain fixed in the 
example), the height and width of the displayed 
picture, and the angle of rotation. The first four 
are given in graphics units, while the fifth is 
given in radians, and must be greater than or 
equal to zero, and less than 2*PI. To make the 
image spin, as we have done in the example, 
just requires calling PROCrot within a loop 
which progressively alters the angle of display. 

The program is relatively long because it 
contains eight separate rotation routines, the 
one used on any given occasion wijf depend 
(automatically) upon the required angle of 
rotation. Remember too that the routine 
simultaneously rescales the image, as well as 
rotating it. In order to keep the program to a 
reasonable length, a number of short cuts have 


been made - for example there is no checking 
for images which overlap the screen edge, so 
you must take care not to let the image grow 
too large. Next month we will add a routine to 
cope with this. Part 2 will also contain other 
enhancements which improve the quality of the 
image generated and the variety of effects 
which can be produced. 
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REM >Spinner 

REM Program Image Spinner 

REM Version A 0*6 

REM Author S,B,Streater 

REM RISC User October 1988 

REM Program Subject to Copyright 


DIM s* 4000480*1024:CLS 
FROCasm(0 , S%):PRQCasm(2,) 
*ScreenLoad Screen 
OFF:CALL copy:CLS 
REPEAT:2=628.2/1.01^200 
REPEAT: Z=Z* 1.01 

PROCrot(640,512, Z, Z, 2*PI-Z/1Q0} 
UNTILZ>~628 
UNTIL FALSE 


DEF PROCasm(Z,P%) 

[OPT Z:,input EQUD 14B:EQUD TRUE 
,output EQUD 0 
*copy:ADR FO, input 
ADR R1, output 

5WI "OSReadVduVariables" 

LDR RG, output 

LDR Rl, workspacel 

MOV R2, #80*1024 

.copy_l:LDMIA R0I, |R3-Rl2j 
STMIA Rl!,[R3-R12}:SUBSR2,R2,#40 
BNE copy_l:MOV PC, R14 
.xbegin EQUD 0:,y__begin EQUD 0 
■ x1 EQUD 0:.yl EQUD 0 
. x2 EQUD 0:,y2 EQUD 0 
,x3 EQUD 0;. x 4 EQUD 0 
-temp EQUD 0:EQUD 0:EQUD 0:EQUD 0 
.t_ EQUD temp 

.link EQUD 0:.stack EQUD 0 


resize 

1:FN 

init resize 

MOV 

R9, #0:MOV R10, #255«16 

LDR 

R8, 

y2;FN r B(l) 

CMP 

BO, 

#320«16:BLE e _1 

SUB 

R9, 

R0, R6 

ADD 

R10, 

Rl, R7 
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430 

ADD 

RIO, R10, R8 

960 


LDR 

Rll,x begin:LDR Rl2 f y begin 

440 

SUB 

Rll, R2, n« 16 

970 


ADD 


Rll, Rll, R14 

450 

ADD 

R12, R3, #1«16 

980 


SUB 


R12, R12, #1«16 

460 

-r 2:FN 

r A(0):ADD RIO, R10, R8 

990 


RSB 


R9, R8, #320«16 

470 

SUB " 

' Rll, Rll, R14 

1000 


SUB 


R9, R9, #1«16 

480 

ADD 

R12, R12, #1«16 

1010 


MOV 


RIO, #255«16 

490 

CMP 

R10, #256«16 : BLT r 2 

1020 

.r 

4B:FN 

r D (1) : SUBS R9, R9, R8 

500 

LDR Rll f x begin:LDR Rl2,y begin 

1030 


ADD 


"Rll, Rll, R14 

510 

ADD 

Rll, Rll, R14 

1040 


SUB 


R12, R12, #1«16 

520 

SUB 

R12, R12, #l«16 

1050 


BGE 


r 4B:B endif 1 

530 

MOV 

R9, #0 

1060 

,e 

IB;LDR R4,t ;STMIA R4,(R0-R3) 

54 0 

RSB 

R10, R8, #255«16 

1070 


LDR 


R8, y2:LDR R14, x4 

550 

.r 4:FN 

r B(1):SUBS RIO, R10, RS 

1080 


SUB 


RIO, RIO, R8 

560 

ADD “ 

' Rll, Rll, R14 

1090 


ADD 


Rll, Rll, R14 

570 

SUB 

R12, R12, #1«16 

1100 


ADD 


R12, R12, #1«16 

580 

BGE 

r 4;B endif 1 

1110 

♦ T 

6B:FN 

r U{1):SUBS RIO, RIO, R8 

590 

.e 1:LDR 

l R4,t :STMIA R4,IR0-R3} 

1120 


ADD 


Rll, Rll, R14 

600 

LDR 

R14, x4:LDR R8, x2 

1130 


ADD 


R12, R12, #1«16 

610 

ADD 

R9, R9, R8 

1140 


BGE 


r 6B 

620 

ADD 

Rll, Rll, R14 

1150 


LDR 


R4, t iLDMIA R4, 1R9-R12) 

630 

ADD 

R12, R12, #1«16 

1160 


SUB 


R12, R12, #1«16 

640 

* r 6 1 FN 

r B (1) :ADD R9, R9, R8 

1170 


SUB 


Rll, Rll, ll«16 

650 

ADD 

' Rll, Rll, R14 

1180 


ADD 


R9, R9, R6 

660 

ADD 

R12, R12, #1«16 

1190 


ADD 


RIO, RIO, R7 

670 

CMP 

R9, #320«16: BMI r 6 

1200 


ADD 


RIO, RIO, R8 

630 

LDR 

R4, t :LDMIA R4, (R9-R12) 

1210 

.r 

8B;FN 

r C(0) :ADD RIO, RIO, R8 

690 

SUB 

Rll, RU, #1«16 

1220 


SUB 


'RU, Rll, R14 

700 

SUB 

Rll, Rll, R14 

1230 


SUB 


R12, R12, #1«16 

710 

SUB 

R12, R12, #1«16 

1240 


CMP 


RIO, #256«16: BLT r_83 

720 

SUB 

R9, R9, R8 

1250 


B 


endif 1 

730 

SUB 

R9, R9, R6 

1260 

• resize 3:FN init resize 

740 

ADD 

RIO, RIO, R7 

1270 


MOV 

R9, |320«16:MOV RIO, #0 

750 

,r 8 * FN 

r A (0) :SUBS R9, R9, R8 

1280 


SUB 


R9, R9, #1«16 

760 

“sub “ 

' Rll, Rll, R14 

1290 


LDR 


R8, y2:FN r A{1) 

770 

SUB 

R12, R12, H«16 

1300 


CMP 


RO, #Q:BGE e 1C 

780 

BGE 

r 8 

1310 


ADD 


R9, RO, R6 

790 

.endif 1:LDR R13, stack 

1320 


SUB 


RIO, Rl, R7 

800 

LDR 

PC, link 

1330 


SUB 


RIO, RIO, R8 

810 

.resize 

2:FK init resize 

1340 


SUB 


Rll, R2, #1«16 

820 

MOV R9, 

#320«16:MOV RIO, #255«16 

1350 


SUB 


Rll, Rll, Rl4 

830 

SUB 

R9, R9, #1«16 

1360 


ADD 


R12, R3, il«16 

840 

LDR 

R8, x2:FN r D tl) 

1370 

.r 

2C; FN 

r B(0):SUBS RIO, RIO, R8 

8 50 

CMP 

RO, #0;RLE e IB 

1380 


SUB 


"Rll, Rll, R14 

860 

ADD 

R9, RO, RE 

1390 


ADD 


R12, R12, #1«16 

870 

ADD 

RIO, Rl, R7 

1400 


BGE 


r 2C 

880 

ADD 

R9, R9, R8 

1410 


LDR 

Rl 1 f x begin:LDR Rl2,y begin 

890 

SUB 

Rll, R2, fl«16 

1420 


ADD 


Rll, Rll, R14 

900 

SUB 

Rll, Rll, R14 

1430 


SUB 


R12, R12, #1«16 

910 

ADD 

R12, R3, #1«16 

1440 


MOV 

R9, #320«16:MQV RIO, RS 

920 

* r 2B:FN 

1 r C (0):ADD R9, R9, R8 

1450 


SUB 


R9, R9, #1«16 

930 

SUB 

Rll, Rll, R14 

1460 

■ r . 

4C;FN 

r A{1);ADD RIO, RIO, R8 

940 

ADD 

R12, R12, #1«16 

1470 


ADD 


Rll, Rll, R14 

950 

CMP 

R9, #320«16;BLT r 2B 

1480 


SUB 


R12, R12, #1«16 
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14 90 

CMP 

R10, #256«16:BLT r_4C 

2020 

SUB 

R12, R12, U«16 

1500 

B 

endif 1 

2030 

CMP 

R9, #320«16:BLT r 6D 

1510 .e 

1C:LDR R4,t :STMIA R4,)R0-R3) 

2040 

LDR 

R4, t ;LDMIA R4, (R9-R12) 

1520 

LDR 

R14, x4:LDR R8, x2 

2050 

ADD 

R12, R12, fl«16 

1530 

SUB 

R9, R9, R8 

2060 

SUB 

Rll, Rll, #1«16 

1540 

ADD 

Rll, Rll, R14 

2070 

SUB 

R9, R9, R6 

1550 

ADD 

R12, R12, #1«16 

2080 

SUB 

R10, R10, R7 

1560 .r 

6C: FN 

r All}:SUBS R9, R9, R8 

2090 

■r SD:FN 

r D (0) ; SUBS R9, R9, RB 

1570 

ADD 

Rll, Rll, Rl4 

2100 

SUB 

'Rll, Rll, R14 

1580 

ADD 

R12, R12, # 1«16 

2110 

ADD 

R12, R12, #1«16 

1590 

BGE 

r 6C 

2120 

BGE 

r 8D:B endif 1 

1600 

LDR 

R4, t :LDMIA R4, (R9-R12) 

2130 

.workspacel EQUD workspace 

1610 

SUB 

Rll, Rll, # 1«16 

2140 

.workspacei]:F%+-80*1024 

1620 

SUB 

R12, R12, m«16 

2150 

ENDPROC 


1630 

ADD 

R9, R9, R6 

2160 

i 


1640 

ADD 

R9, R9, RB 

2170 

DEF FN plot 

1650 

SUB 

R10, RIO, R7 

2180 

[OPT Z:LDR R5, workspacel 

U 

o 

VD 

1 —f 

8C:FN 

r B (0) : ADD R9, R9, R8 

2190 

MOV 

R4, Rl, LSR #16 

1670 

"SUB 

“Rll, Rll, R14 

2200 

ADD 

R4, R4, R4, LSL #2 

1680 

SUB 

R12, R12, *1«16 

2210 

ADD 

R4, R5, R4, LSL #6 

1690 

CMP 

R9, #320«16:BLT r_8C 

2220 

LDRB 

R4, [R4, R0, LSR #16) 

1700 

B 

endif_l 

2230 

MOV 

R5, R3, LSR #16 

1710 .resize ■ 

4:FN init resize 

2240 

ADD 

R5, R5, R5, LSL #2 

1720 

MOV 

R9, #0:MOV R10, (0 

2250 

ADD 

R5, R13, R5, LSL #6 

1730 

LDR 

R8, y2:LDR R14, x4 

2260 

STRB 

R4, [R5, R2, LSR #16] 

1740 

FN r i 

C (1) 

2270 

]:IF a THEN 

1750 

CMP 

RO, #32Q«16;BLT e ID 

2260 

[OPT Z : ADD R2, R2, #1«16:J 

1760 

SUB 

R9, R0, R6 

2290 

ELSE 


1770 

SUB 

R10, Rl, R7 

2300 

(OPT Z:SUB R2, R2, #1«16: 1 

1780 

SUB 

R10, R10, RS 

2310 

ENDIF;=0 


1790 

SUB 

Rll, R2, #1«16 

2320 

DEF FN init loop 

1800 

SUB 

Rll, Rll, R14 

2330 

[OPT Z:MOV R0, R9;MOV Rl, R10 

1810 

SUB 

R12, R3, # 1 «X6 

2340 

MOV 

R2, Rll: MOV R3, R12 

1820 .r 

2D: FN 

r D(0): SUBS R10, R10, RB 

2350 

3 :-0 


1830 

SUB 

Rll, Rll, R14 

2360 

; 


1840 

SUB 

R12, R12, #1«16 

2370 

DEF FN r 

A (a) 

1850 

BGE 

r 2D 

2380 

[OPTZ: FN~ 

init loop:.repeat:FN_plot 

1860 

LDR Rl 1 , x begin:LDR Rl2,y begin 

2390 

SUBS “ 

R0, RO, R6:ADD Rl,RI,R7 

1870 

ADD 

Rll, Rll, R14 

2400 

ADDLT 

Rl5, R15, *4 

1880 

ADD 

R12, R12, #1«16 

2410 

CMP 

Rl, #256«16:BLT repeat 

1890 

MOV 

R9, #0 : MOV R10, RB 

2420 

3-Q 


1900 .r 

4D: FN 

r C(l):ADD R10, RIO, R8 

2430 

; 


1910 

ADD 

Rll, Rll, R14 

2440 

DEF FN r 

B (a ) 

1920 

ADD 

R12, R12, #1«16 

2450 

[OPTZ : FN~ 

init loop:.repeat:FN_plot 

1930 

CMP 

R10, #256«16:BLT r_4D 

2460 

ADD 

"RO, R0, R6:SUBS Rl,Rl,R7 

1940 

B 

endif 1 

2470 

ADDLT 

Rl5, R15, #4 

1950 .e 

1D:LDR R4, t : STMIA R4,(R0-R3I 

2480 

CMP 

R0, #320«16 : BLT repeat 

1960 

LDR 

RB, x2:LDR R14, x3 

24 90 

)-0 


1970 

ADD 

R9, R9, RB 

2500 

: 


1980 

ADD 

Rll, Rll, R14 

2510 

DEF FN r 

C (a) 

1990 

SUB 

R12, R12, #1«16 

2520 

[OPTZ: FN~ 

init loop:.repeat;FN_plot 

2000 , r 

6D:FN 

r C(l) :ADD R9, R9, R8 

2530 

ADD 

"RO, R0, R6: ADD R1,R1,R7 

20X0 

"add 

Rll, Rll, R14 



Continued on page 12 
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David Pilling adds a host of useful features to his very popular disc front end. 


If you carefully add the 
accompanying listing to the Disc 
Menu program from Issue 2 of 
RISC User, taking great care not to 
renumber any of the lines, you will 
end up with the new version. When 
you run this, it will create a 
relocatable module, and will 
automatically save it to disc under 
the name RMENU. To use the 
module, type: 

QUIT 
RMENU 

Typing ‘MENU at any time will then 
invoke the menu. To quit, press 
Escape, or use the "Quit" box. 

You will gather most of the new 
features from the illustration. The 
major ones are as follows: 

1. The current drive is highlighted. 

2. The number of free bytes on the 
disc is displayed. 

3. The number of bytes used in the 
current directory is displayed. 

4. The largest free area of the disc 
is displayed [giving the size of the 
largest file that can be saved before 
compacting). 

5. The default COPY options have 
been altered to "R rl (Recurse) and M F (Force), 
while "P" (Prompting) is only selected on single- 
drive systems. 

6. The file length at the base of the screen is 
now in decimal rather than hex. 

7. The M UNTAG" option has been altered to 
allow tagging or untagging of all files. 

8. The number of tagged and untagged files is 
now displayed. 

9. Colour numbers have been redefined in a way 
which permits the palette to be adjusted more 
effectively prior to assembly. 

Next month we will briefly explain how to alter 
the palette, and provide an alternative colour 
scheme for the menu. 


New Copy Options 
Current Dr. : ve Highlighted 
Directory Title 
Directory Name 

Number of Tagged and Untaggea Files 

Bytes used by logged Files 

and Bytes used by Current Directory 

Type of File Under Pointer 

Name of File Under Pointer 

Disc Name 

Library 

User Root Directory 
Largest Free Area on Disc 
Total Free Space on Disc 
Date of File under Pointer 
Length of File under Pointer 

3 REM >MENUdiff 
316 BL drives 

350 + newd:BL gbuff;BL fiddle:BL set 
370 .newl:B drvcol 

375 *drvco!2 

376 BL mounrSUBS Rl,Rl,#l 
390 SWI wr+3:SWI wr+6:SWI ws 
420 SWI wr+48:SWI wr+6:$WI ws 

441 SWI wr+31:SWI wr+33:SWI wr+6;SWI 

4 42 EQU5 ri DSC;" i EQUBO:BL pxnam 

445 B prext 

446 .prext2 
555 BL tagst 

735 SWI ws:£QUS" ":EQUB31 

736 EQU5 66 :EQU.B24 : EQUBO 
740 LDR ROy [R1],#4;BL prdec 
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SUPERCHARGE THE RISC USER DISC MENU 



775 BL CCli 

1465 .pxnam 

1466 MOV RG,#5:ADR R2,blok:SWI gb 

1467 LDRB R3,[R2]:B libl 

1740 BL prifx:BL tagst:B mloop 
2500 EQUB0:SWI wr+3;MQV R15,R14 

2631 EQUB19:EQUB7;EQUB16:EQUB2 5 5 

2632 EQUB2 5 5:EQUB2 5 5 

2633 EQUB19:EQUB2:EQUBl6;EQUB255 

2634 EQUBO:EQUB0 

2635 EQUB19:EQUBO:EQUBl6:EQUBO 

2636 EQUBO:EQUBO 

2651 EQUBl9:EQUB3:EQUB16:EQUBO 

2652 EQUBO:EQUBO 

2653 EQUBl9:EQUB4:EQUB16:EQUBO 

2654 EQUBO:EQUBO 

2655 EQUBl9:EQUB5:EQUB16:EQUBl28 
2 656 EQUBl4 4:EQUBl7 6 

2730 EQUBl7:EQUB3:EQUB 31:EQUBO:EQUB24 
2830 EQUBl7;EQUB4:EQUB17:EQUB12 8+5 
2846 EQUS" (UN)TAG 

2875 .gbuff 

2876 ADR R2,buff:MQV R15 # R14 

3061 .drives 

3062 SWI "ADFS_Drives" 

3063 CMP R1,#1:CMPEQ R2,#0 

3064 MOVEQ R15,R14 

3065 MOV RO,#5:STRB R0,eob 

3066 MOV R15,R14 

3181 -tagsr 

3182 MOV RO,#1:MOV Rl,#Q:ADR R2,tags 

3183 .tarl 

3184 STRB RO,[R2],#1:ADD Rl,Rl,il 

3185 CMP Rl, Rl 1:BNE tarl:MOV R15,R14 

4021 .dell2:BL tasq:BEQ delux 

4022 LDRB R2,[Rl, #&C] ;TST R2,#8 

4023 BEQ dell2 

4024 ADR RG,delms:SWI gen 

4025 -delms 

4026 EQUDOO:EQUS"One or more files loc 
ked":EQUBO 

4027 .delux 

4028 MOV R12,#Q 

4110 SWINE wr+ASC"R”:TST RO, #2 

4195 BL ecli 

4280 

4310 ADR RO,copq:ADD R0,R0,#5 

4311 BL mbsb:SUB RQ,RQ,#1 

44 70 TST Rl, # 4 : MOV R2, #ASC"R T ' 

4431 MOV R2,#ASC M "”;STRB R2,[RG] r #l 
4482 MOV R2,#ASC M Q":5TRB R2,[R0],#1 


4520 B go2 

4521 

4570 CMP RQ,#&17;BEQ untg2 
4695 BL ccli 

5500 MOV RO,#£FFO:ADD RQ,RQ,#&F 
5510 AND RO,R4,KQ 

5535 LDRB R6, [R5],#1:ADD R2, R2,R6,A$L# 

8 

5540 CMP R2,#£1000:BEQ ktyll 
5750 EQUW tFFFiEQUS" ASCII" 

5760 EQUW SFFE-EQUS" Command" 

5770 EQUW 5 FED:EQUS" Data" 

5780 EQUW £FFC:EQUS" PI Code 1 ' 

5790 EQUW SFFB:EQUS" BASIC" 

5800 EQUW &FFA:EQUS" Module" 

5810 EQUW SFF9:EQUS M Sprite" 

5820 EQUW &FF8:EQUS" Abs. Code" 

5830 EQUW &FF7;EQUS" BBC font" 

5840 EQUW &FF6:EQUS"Fancy font" 

5845 EQUW SDDC:EQU5"Beebug ARC" 

5850 EQUW &1000:EQUS" ” 

5861 .untg2 

5862 MOV R12, jtO :BL tasq:BNE untag 

5863 BL tagsr:B newd 
5870 .fiddle 

5875 SIR R2,fpoi:STR R2 l fbf 

5880 MOV RO, fl3:ADR Rl,fvect:MOV R2, #0 

5881 SWI "OSClaim" 

5884 ADR R0,fixf:SWI "XOS_CLI w 

5885 LDR R2,fbf:STR R2,fpoi 

5889 ADR R0,fixs:5WI "X05_CLI" 

5890 MOV R0 r #3:ADR Rl,fvect 

5891 MOV R2,# 0: SWI "GSJtelease" 

5892 MOV RQ,#37:LDR R2,fbf 

5893 LDRB Rl,[R2,ROJ:STRB Rl,driven 

5894 MOV RO,# 0:ADR F3,title:MQV R4,#0 

5895 .floop 

5896 LDRB Rl r [R2,K0J:STRB Rl, [R3,R4] 

5897 ADD R4,R4,#1:ADD R0,RQ,#1 

5898 CMP R4,#20:BNE floop 

5899 MOV R0,#64 

5900 ADR R3,urdir:MOV R4,#0 

5901 ,floop2 

5902 LDRB Rl, [R2,R0]:STRB Rl,[R3,R4] 

5903 ADD R4,R4,#1:ADD R0,R0,#1 

5904 CMP R4,#13:BNE floop2 

5910 MOV Rl5,R14 

5911 .fvect 

5912 STMFD Rl3! , [R2} 

5913 LDR R2, fpoi: STRB R0, [R2J,ffl 

5914 STR R2,fpoi:LDMFD R13!,(R2} 
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5915 

5916 

5917 
5920 
5925 
5930 
5940 
5950 

5960 

5961 

5962 

5963 

5964 

5965 
5970 
5930 
5990 
6000 
6010 
6020 
6030 
6040 
6050 
6060 
6070 
6080 
6090 
6100 
6110 
6120 

6125 

6126 
6127 
6150 
6160 
6170 
6180 
6190 
6200 
6201 
6202 
6203 
6210 
6220 
6230 

6240 

6241 

6242 

6243 

6244 

6245 





SUPERCHARGE THE RISC USER DISC MENU 


LDMFD Rl3!, {Rl5} 

6246 

SWI n ADF5_F reeSpace ,T 

. fpoi EQUD 0 

6247 

,prfx2 

,fbf ROOD 0 

6243 

STR Rl,prmax:BL prdec 

. fixs:EQUS n .":EQUB13 

6249 

LDMFD R8! ,{R15} 

.fixf:EQUS"FREE":EQUB13 

6250 

MOV Rl5,Rl4 

. drive:EQUS n : ";EQUBO 

6251 

.prfx 

, title:EQUS STRING $ (20,CHR$ 0) 

6252 

MOV RG,#0iMOV R1J0:B prfx2 

. urdir:EQU5 STRING?[13,CHR$0) 

6260 

.prdec 

.prurd 

6265 

STMFD R8!, {RG-R2,R14} 

ADR Rl,urdir;MOV R2,#1Q 

6270 

ADR Rl,xbuff:MOV R2,#10 

.prurdl 

6275 

SWI "OS BinaryToDecimal" 

LDRB ROf [Rl],#1:$WI wc 

6280 

.prdlp 

SUBS R2,R2,#1;BNE prurdl 

6290 

LDRB R0,[R11,#1:SWI wc 

MOV Rl5,R14 

6300 

SUBS R2,R2,#1:BNE prdlp 

.prtit 

6310 

LDMFD R8!,{RG-R2,R15} 

ADR Rl,title:MOV R2,#9 

6320 

.xbuff:EQTJS STRING? (20,CHR$G) 

.prtitl 

6330 

.tagst 

LDRR R0,[Rl], #1: SWI wc 

6340 

STMFD R8!,{RQ-R7,R9-R12, R14f 

SUBS R2,R2,#1:BNE prtitl 

6350 

MOV R12, #0:BL bloo;MOV R10,#0 

MOV Rl51 Rl4 

6351 

MOV R7,# 0:MOV R6,#0:MOV R9,#0 

. prext 

6360 

B tstl 

SWI ws:EQUB31:EQUB63:EQUB6 

6370 

.tstO 

EQUS"Urd; ,T :EQUB0 

6371 

BL poin 

BL prurd 

6373 

LDRB R0,[Rl,#£l0]:CMP R0,#2 

SWI ws;EQUB31;EQUR13;EQUB6 

6375 

BEQ tst2:ADD R10,R10,#1 

EQUS"Tit:":EQUBO 

6376 

LDR R0,[Rl, U &]:ADD R6,R6,R0 

BL prtit 

6 380 

BL tass:ADDEQ R9,R9,#1 

SWI ws:EQUB31:EQUR48:EQUB7 

6335 

LDR R0, [Rl,#*S3 :ADDEQ R7,R7,R0 

EQUS "Free: "; EQUBO 

6386 

. tst2 

BL prfree 

6390 

ADD R12,R12,11 

SWI ws:EQUB31;EQUB63:EQUB7 

6400 

.tstl:CMP R12,Rl1:BNE tstO 

EQUS'*Max : ” : EQUBO 

6405 

SWI ws:EQUB31:EQUB3:EQUB7 

LDR R0, prmax: BL prdec 

6406 

EQUS"Tgfr 

B prext2 

6407 

EQUS"Tby: ":EQUB0 

. drvcol 

6410 

SWI ws:EQUB31:EQUB7:EQUB7:EQUBO 

ADD R0,Rl,#ASC n 0" 

6420 

MOV R0,R9:BL prdec 

LDRB R2,drive+1 

6430 

SWI 256+ASC"/" 

CMP R2,R0 

6440 

MOV RO,RIO:BL prdec 

SWI 256+17 

6450 

SWI ws:EQUB31:EQUB22:EQUB7:EQUBO 

SWINE 256+4:SWTEQ 256+5 

6460 

MOV RO,R7:BL prdec 

SWI 256+17 

6470 

SWI 256+ASC7" 

SWIEQ 256+132:SWINE 256+133 

6480 

MOV RG,R6;BL prdec 

B drvcol2 

6490 

LDMFD R8!,{R0-R7,R9-R12,Rl5} 

> prmax 

6500 

.cell 

EQUD 0 

6505 

SWI ws:EQUB31:EQUB3;EQUB6 

.prfree 

6510 

EQUS STRING?(74,CHR$32):EQUBO 

STMFD R8 f , {Rl4 } 

6520 

MOV R15,R14 

ADR RO,drive 

7000 

.end ]:ENDPROC 


LDRR Rljdrive+1 

CMP Rl , flASC'G " : BLT prfx 

CMP Rl,flASC"7":BGT prfx 


The complete version of the menu appears on 
this mon th's disc, jtjjj 
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A REAL-TIME IMAGE SPINNER (Continued from page 8) 


2540 CMP RO, #320«16:ADDGE R15,R15,#4 
2550 CMP Rl, #256«16:BLT repeat 
2560 ]:=0 
2570 : 

2580 DEF FN_r_D(a) 

2590 (OPTZ:FN_init_loop;.repeat:FN_plot 
2600 SUB RO, RO, R6:SUBS R1,R1,R7 
2610 ADDI.T R15, R15, #4 

2620 CMP RO, #0:BGE repeat 

2630 ]:=0 
2640 : 

2650 def FN_init_resize 

2660 (OPT Z:STR R13,stack:STR Rl4,lirtk 

2670 LDR Rl1,x^begin:LDR R12,y_begin 

2680 LDR R6, xl:LDR R7, yl 

2690 LDR R14, x3:LDR R13, output 

2700 ]:=0 

2710 : 

2720 DEF PROCrot(A%,B%,C%,D%,t) 

2730 xs=C%/1280:ys=D%/1024:z=l«16 
2740 r=SQR(C* *C%+D%‘D %)/8:B%=B%EORl023 
2750 a=ATN(D%/C%):b=ATN(C%/D%):l=3.9E-3 
2760 IF 0<=t AND t<PI/2 THEN PROCsetup 
1(t):CALL resize_l 

2770 IF PI/2<=t AND t<PI THEN PROCset_u 
p2(t):CALL resize_2 


2780 IF PK=t AND t<3*PI/2 THEN PROCset 
_upl (t-PI):CALL resize_3 
2790 IF 3*PI/2<=t AND t<2*PI THEN PROCS 
et_up2(t-PI):CALL resize_4 
2800 ENDPROC 
2810 : 

2820 DEF PROCsetupl(t) 

2830 IF SIN(t)*xs<l t=ASN(I/xs) 

2840 IF COS(t)*ys<l t=ACS(l/ys> 

2850 ! xj3egin=z* (A%/4-r*COS (a-t)) 

2860 !y_begin=z*(B%/4+r*SIN(a-t)> 

2870 !xl=z*COS(t)/xs: !yl=z*SIN(t>/ys 
2880 !y2 = z/COS(t)/ys:!x3 » z*TAN(t| 
2890 !x4=z/TAN(t):!x2=z/SIN(t)/xs 
2900 ENDPROC 
2910 : 

2920 DEF PROCsetupZ(t) 

2930 IF SIN(t)*XS<1 t=PI-ASNU/xs) 

2940 IF COS(t)*ys>-l t=PI-ACS(1/ys) 

2950 ! x_begin=z*(A%/4 + r*SIN(b-t)> 

2960 !y_begin=z*<BI/4+r*COS(b-t)) 

2970 !xl=-z*COS(t)/xs:!yl=z*SlN(t)/ys 
2980 !x2=z/SIN(t)/xs:!x3=-z/TAN(t) 

2990 !y2 *= -z/COS(t)/ys:!x4 = -z*TAN(t) 
3000 ENDPROC 

B9 


ARCHIMEDES SOFTWARE 


• Disc l EMACS Multiple buffer/document UNIX super editor with integral 

programming language, 

• Disc 2 Micro Spell 43,000 word spell checker. Ideal for EMACS with crossword 

solver utility. 

• Disc 3 Fortune Cookie, Database of over 7000 amusing quotations with 

programs to give you a thought for the day . 

• Disc 4 XLISP Object orientated version of USP language with source code. 


• Disc 5 C Toolkit, grep, awk, cross references pretty print, stream editor, 

advanced file compare, many others, 

• Disc 6 Kermit communications/fife transfer program. Latest version of C 

Kermii long packets, server mode. 

Each disc is £5. 99 inc. Buy four claim one freei 

Available from David Pilling, 

P.O. Box 22 p Thornton Cleveleys, Blackpool FY5 TLR. 
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This classy pointer definer by Barry Christie realty Is a delight to use, with a highly professional screen 
display, and should prove most useful in developing your own mouse-driven programs. 


The Archimedes is supplied with a mouse as 
standard, and most users rapidly become 
familiar with the default mouse-controlled 
screen pointer (an arrow). In fact, it is 
technically quite possible to design your own 
style of pointer, and use this in place of the 
original Indeed, a Basic program may switch 
between four different pointer definitions under 
program control 

Defining your own pointer may seem a 
demanding task, but the utility listed here 
makes the whole process delightfully easy, and 
the resulting pointer definitions may be saved 
to disc, and then used as required in your own 
programs. 

Carefully type in the Pointer Definer program 
and save safely to disc. When you run the 
Definer, you will see an enlarged grid area 
where the design of the pointer takes place. At 
the foot of the screen, up to four different 
pointer designs are shown at near to their 
proper size. A number of user-selectable 
options are displayed at the side of the screen. 

DESIGNING A POINTER 

A pointer may use up to three different 
colours, while black represents the transparent 
parts of the pointer design. Select the colour at 
any time from the colour display. You may aiso 
edit any colour selected, but not black, by using 
the red, blue and green slider bars at the 
bottom right of the screen. In this way, any of 
the Archimedes 4096 possible colours may be 
used. 

In the main grid area, a pointer may be 
constructed by pressing the select button to 
colour in the small squares (representing 
pixels). The design will appear reduced in size 
at the foot of the screen. To select a different 
pointer, use the mouse to point to one of these 
four miniature displays. The program 
remembers up to four definitions at a time. The 
small hashing white square marks the active 
point for any pointer design, and the position of 
this may be changed using the menu button. 


By selecting (with the mouse) appropriate 
options at the side of the screen display, the 
current (displayed) pointer definition may be 
saved as a disc file, or a previous definition 
reloaded (just press Return to abort a load or 
save operation). There is a.so the facility to 
temporarily replace the default pointer with your 
new creation (press the adjust button to return 
to normal editing), and an option to clear (to the 
current colour) the pointer edit area. Pressing 
Escape will exit from the pointer definer. 



USING A POINTER 

The saved pointer data provides the 
information needed by the system to define a 
new pointer The way to use any such definition 
in your own programs is shown in the following 
short program (called MouseTest). You must 
reserve 400 bytes of memory for the initial 
loading of any pointer definition (line 60 loads a 
definition called textdata Into the memory area 
labelled mousedata). Two values must then be 
poked into this data area (lines 70 and 80) to 
define the pointer number (range 0 to 3), and 
the address at which the data is located (in this 
case the label mousedata )* Executing the SYS 
call at line 90 then defines the pointer (in the 
example as pointer 2), and this is activated by 
the MOUSE ON command at line 100, In use, 
the proportions of any pointer design, as with 
the default, depend on the mode used. Try 
modes 0, 1 and 2 in the demo program to see 
the effect of this. 
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10 REM >MouseTest 

20 : 

30 MODE 0 
40 *POINTER 
50 DIM mousedata 400 
60 OSCLI("LOAD testdata "+STR$~(mouse 
data)) 

70 mousedata?&0l=2 
80 mousedata! &06=mousedata+£0A 
90 SYS "OSWord",sl5,mousedata 
100 MOOSE ON 2 
110 END 


A program may load any number of different 
pointer definitions, but no more than four can 
be defined at any one time. A program can 
switch pointers using the MOUSE ON <n> 
command to specify which is to be used. But, 
however many pointer definitions are loaded, 
only one 400 byte area of memory is required 
as a temporary storage area. 

A number of pointer designs are included on 
the magazine disc with the programs. 


10 REM >PointerDEF 

20 REM Program Pointer Definer 

30 REM Version A 1*6 

40 REM Author Barry W Christie 

50 REM RISC User October 1988 

60 REM Program subject to copyright 

70 : 

80 MODE 12:OFF:ON ERROR MODE12:PRINT 
REPORTS;" at line ERL:END 
90 PROCinitialise 


100 REPEAT 

110 MOUSE mxco,myco,mbut 
120 pxco=(rnxco- 32) DIV 24 
130 pyco- (myC0-224 } DIV 24 
140 CASE TRUE OF 


150 WHEN FNpointerareal 2,14,48,48,4) 
:P ROCpoin t e r_point 

160 WHEN FNpointer_area( 2,14,48,48,2) 
:F ROCpoint e r_activ e 

170 WHEN FNpointer_area( 2, 2, 8, 8,4) 
:PROCpolnteredisplay(0) 

180 WHEN FNpointer_area(14, 2, 8, 8,4) 
:PROtpointer_display(1) 

190 WHEN FNpointer^area(26, 2, 8, 8,4) 
;PROCpointer_display(2) 

200 WHEN FNpointerarea(38, 2, 8, 8,4) 
;FROCpointer_display(3) 


210 WHEN FNpointerarea(54,48,24, 4,4) 
:PROCpointer_loaddata 
220 WHEN FNpointerarea(54,40,24, 4,4) 

; pROCpointer_savedata 
230 WHEN FNpointer_area(54,32,11, 4,4) 
:PRQCpointer_show 

240 WHEN FNpointer area(69,32, 9, 4,41 
:PROCpointer_clear 

250 WHEN FNpointerarea (54,14,24, 9, 4) 

:PROCpointercolour 

260 WHEN FNpointerarea (54, 2,24, 6,4) 
:PROCpointer_rgbedit 
270 ENDCASE 
280 UNTIL FALSE 
290 END 
300 ; 

310 DEF PROCpointer_point 
320 pntr(p,pxco,pyco)=pcol 
330 IF pxcooactp(p,0) OR pycooactpCp 
,1) THEN PROCblock(pxco,pyco,pcol) 

340 ENDPROC 
350 : 

360 DEF PROCpointeractive 
370 x=actp(p,0):y=actp(p,1) 

380 PROCb lock (x, y, pntr (p,x,y)) 

390 actp (p, 0) =pxco:actp (p, 1) -pyco 
400 PROCblock (pxco, pyco, 4) 

410 ENDPROC 
420 : 

4 30 DEF PROCpointer_display (pnew) 

440 IF pnewOp THEN 
450 p-pnew 

460 FOR x~0 TO 31;FOR y=0 TO 31 
470 PROCblock(x,y,pntr (p,x,y)) 

480 NEXT y:NEXT x 

490 PROCblock(actp(p,0),actp(p,1), 4) 

500 PROCrgbset 

510 ENDIF 

520 ENDPROC 

530 : 

540 DEF PROCpointer clear 

550 FOR pxco-0 TO 31:FOR pyco-0 TO 31 

560 PROCpointarpoint 

570 NEXT pyco:NEXT pxco 

580 ENDPROC 

590 : 

600 DEF PROCpoi nter_l oaddata 
610 IF FNfilename(0)<>"THEN 
620 file=OPENlN(filenames) 

630 IF file-0 THEN 
640 VDU7;COLOUR 5 

650 PRINTTAB (54,VFOS“l) "No such file" 
660 t“INKEY(200):COLOUR 15 
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(FsHsitteif 


670 PRINTTAB(54 f VPOS-1)SPC24 
680 ELSE 

690 FOR b=l TO 4:byte"BGET#file:NEXT 
700 actp(p,G}=BGET#file 
710 actp(p,l}=3l-BGET#file 
720 FOR b“l TO 4 :byte=BGET#f1le:NEXT 
730 FROCgetprgbytes 
74 0 FOR data=0 TO 1023 
750 pntr(p,data MOD 32,31-(data div 32 
))=data?mwrk 
760 NEXT data 
770 FOR COlour-0 TO 2 
780 rgbp(p,colour,0}=BGET#file 
790 rgbp(p,colour,1)-BGETffile 
800 rgbp(p,colour,2)=BGET#file 
810 NEXT colour 
820 CLQSEffile 

S30 p-=l;PROCpointer_display(p+1) 

840 ENDIF 
850 ENDIF 
860 ENDPROC 
870 : 

380 DEF PROCpointer_savedata 
8 90 IF FNf1lename (1) <>" ,r THEN 
900 file=GPENOUT (filename?) 

910 BPUTtffile, &00:BFUT#file,p+l 
920 BPUT#file, £08: BPUT# file, £20 
930 BPUT# file, actp (p, 0) 

940 BPUT#file, 31-actp (p, 1) 

950 BPUT $ file, £00 : BPUT# file, & Q0 
960 BFUTffile,&G0:BPUT#file, £00 
970 PROCgetsysbytes 
980 FOR data-0 TO 255 
990 BPUT#file,data?mwrk 
1000 NEXT data 
1010 FOR colour-0 TO 2 
1020 BPUT#file,rgbp(p,colour,0) 

1030 BPUT#file,rgbp(p,colour,1) 

10 40 BPUT#file,rgbp(p,colour,2 ) 

1050 NEXT colour 
1060 CLOSE#file 
1070 ENDIF 
1080 ENDPROC 
1090 : 

1100 DEF PROCpoirvter_show 
1110 PROCdefine 
1120 FOR mcol=0 TO 2 

1130 MOUSE COLOUR mcol+1, rgbp (p, mcol, 2) 
, rgbp (p,mcol, 1), rgbp (p,mcol, 0) 

1140 NEXT mcol 
1150 MOUSE ON 2 

1160 REPEAT:MOUSE x,y,m:UNTIL m=Q 
1170 REPEAT:MOUSE x,y,m:UNTIL m=l 


1180 PROCedit pointer 
1190 ENDPROC 

1200 i 

1210 DEF PRQCpointer_colour 
1220 pcol-(mxco-864) DIV 96:GCOL pool 
1230 FOR s=0 TO 2:PRGCrgbshow(s):NEXT 
1240 ENDPROC 
1250 : 

1260 DEF PROCpointer_rgbedit 

1270 IF pcoloO THEN 

1280 WHILE FNpointer_area(54,2,24,6,4) 

1290 rgbrgb=(myco- 32) DIV 32 

1300 rgbval=(mxco-864) DIV 24 

1310 rgbp(p,pcol-l,rgbrgb)=rgbval*16 

1320 PROCrgbset:PRGCrgbshow{rgbrgb) 

1330 MOUSE mxco,myco,mbut 
1340 ENDWHILE 
1350 ENDIF 
1360 ENDPROC 
1370 : 

1380 DEF FNfilename(texty) 

1390 x-54:y=7+4 *t exty 

1400 PRINTTAB(x,y)"Filename <"SPC12"> M 

1410 VDU 7,31,66, y 

1420 SYS M QSJteadLine",mwrk,10,32,126 T 
0 length;flags 

1430 filename?-" 11 : IF {flags AND 21 =0 TH 
EN f ilenajne$=$mwrk 
1440 PRINTTAB(x f y)SPC24 
1450 =filename$ 

1460 ; 

1470 DEF PROCrgbset 

1480 FOR sl-0 TO 2:VDU 19,sl+l,16 

1490 FOR s2-G TO 2:VDU rgbp(p,si,2-s2) 

1500 NEXT s2;NEXT si 

1510 FOR s=0 TO 2:PRGCrgbshow(s):NEXT 

1520 ENDPROC 

1530 : 

1540 DEF PROCrgbshow(bar) 

1550 IF pcol=0 THEN rgblim-0 ELSE rgbli 
m™rgbp(p,pcol-1,bar) DIV 16 
1560 rgbbar=32+bar*32 
1570 rgbwip-(15-rgblim)*24 
1580 GCOL 0:RECTANGLEFILL 1244-rgbwip,r 
gbbar,rgbwip,19 
1590 GCOL 7-bar 
1600 FOR rgbbit=0 TO rgblim 
1610 RECTANGLEFILL 864+24*rgbbit,rgbbar 
/19,15 

1620 NEXT rgbbit 
1630 GCOL pcol 

1640 RECTANGLEFILL 864,384,383,63 
1650 ENDPROC 
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1660 : 

1670 DEF PROCblock{pntx,pnty,pntc) 

1680 GCOL pate 

1690 RECTANGLEFILL 32+24*pntX,224+2 4*pn 
ty,19,19 

1700 RECTANGLEFILL 68+192*p+4*pntx,32+4 
*pnty,3,3 
1710 ENDPROC 
1720 : 

1730 DEE PROCdefine 
1740 mpar?£OG-&O0:mpar?&0l^&02 
1750 mpar?&Q2=&08:mpar?&03=£20 
1760 mpar?£04-actp(p,0) 

1770 mpar?&05=3l-actp(p#1) 

1780 mpar! fiOfis^mpar+fiOA 

1790 FROCgetsy sby tes 

1300 FOR data=0 TO 255 

1810 ? (mpar+data+sGA) =data?invrk 

1820 NEXT data 

1830 SYS rt OS_Word n , £l5,mpar 

1840 ENDPROC 

1350 : 

1360 DEF PROCgetsysbytes 

1870 FOR dy=0 TO 31:FOR dx-0 TO 7 

1880 ?(mwrk+(31-dy)*s08+dx)=FNbuildbyte 

1390 NEXT dx:NEXT dy 

1900 ENDPROC 

1910 : 

1920 DEF FNbuildbyte 

1930 made-0:base=dx*4 

1940 FOR build=0 TO 3 

1950 bits-pntr(p,base+build,dy) 

1960 made=made OR bits« (2*build) 

197Q NEXT build 
1980 =made 
1990 : 

2000 DEF PRQCgetprgbytes 

2010 FOR data-0 TO 255 

2020 byte=BGET#file 

2030 FOR undo-Q TO 3 

2040 temp-byte AND (3«fundo*2)) 

20 50 ? (mwrk~dataM + undo) =temp» (2*undo) 
2060 NEXT undo:NEXT data 
2070 ENDPROC 
2080 : 

2090 DEF FNpointer_area (px, py, pw,ph, pb) 

2100 px=px*16:pw-px+pw*16-l 

2110 py=py*l6:ph=py+ph*l6-l 

2120 IF pbOmbut THEN -FALSE 

2130 IF mxCO<px OR mxcOpw THEN -FALSE 

214 0 IF myccKpy OR mycOph THEN -FALSE 

2150 -TRUE 

2160 : 


2170 DEF PROCinitialise 

2180 DIM pntr{3,31,31), actp(3,1) 

2190 DIM rgbp(3,2,2),mpar 3QQ,mwrk 1024 

2200 PROCedit_COlOurS:OSCLI("POINTER") 

2210 PROCedit_pointer:PROCedit_screen 

2220 FOR s1-0 TO 3:FOR s2-0 TO 2 

2230 rgbp(sl,s2,2-s2)=255 

2240 NEXT s2;NEXT si 

2250 pxco-0:pyco-31 

2260 FOR p=0 TO 3 

2270 PROCpoiater active 

2280 NEXT p 

2290 pcol=l:p=0:PRQCrgbset 
2300 ENDPROC 
2310 : 

2320 DEF PROCeditjpointer 

2330 MOUSE COLOUR 1,192,192,192 

2340 MOUSE COLOUR 2,128,128,128 

2350 MOUSE COLOUR 3,0,0,0 

2360 MOUSE ON 1 

2370 ENDPROC 

2380 : 

2390 DEF PROCedit_colours 
2400 VDU 19,0,24,176,176,176 
2410 VDU 19,3,16, 0, 0,255 

2420 VDU 19,4,17,255,255,255 
2430 VDU 19,4,18, 0, 0, 0 

2440 VDU 19,5, 16,255, 0, 0 

2450 VDU 19,6,16, 0,255, 0 

2460 VDU 19,7,16, 0, 0,255 

2470 VDU 19,9,16,176,176,176 
2480 FOR colours=10 TO 15 
2490 rgb-32*(colours-3) 

2500 VDU 19,colours,16,rgb,rgb,rgb 

2510 NEXT colours 

2520 OSCLI("FX 9,1");COLOUR 137 

2530 OSCLI("FX 10,1"):COLOUR 15 

2540 ENDPROC 

2550 : 

2560 DEF PROCeditscreen 
2570 skip$~STRING$(4,CHR$9) 

2580 PROCbox( 0,12,52,52) 

2590 PROCbox(52,54,28,10) 

2600 PROCbox(52,46,28, 8) 

2610 PROCbox(52,38,28, 8) 

2620 PROCbox(52,30,15, 8) 

2630 FROCbox(67,30,13, 8) 

2640 PROCbox(52,12,28,18) 

2650 PROCbox( 0, 0, 2,12) 

2660 PROCbox( 2, 0,12,12) 

2670 PROCbox(14, 0,12,12) 

2680 PROCbox(26, 0,12,12) 

Continued on page 30 
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ARE YOU GOOD ENOUGH? 

As the leaders in software for the Archimedes range of computers, CLARES 
MICRO SUPPLIES are looking to extend our range even further. We are 
looking for people who are as excited by the Archimedes as we are. 

If you have written any programs, completed or not, then we would like 
to hear from you. 

if you have any Ideas for programs and have the ability to execute the 
ideas then we want to hear from you. 

If you have the ability to program the Archimedes but not the ideas to 
program then we want to hear from you. 

Programs can be written in any language as long as they perform their 
stated task. Many of our programs contain large chunks of BASIC with ARM 
code in the areas that It Is needed. BASIC on the Archimedes is a very 
powerful language and we do not attach any snob value to its use. If your 
program does what is meant to do then thats ell we are interested in. 

Why not join the top team on the Archimedes. You get the support of our 
in-house team, privileged access through us to Acorn and invitations to our 
informal programmers seminars. 

The most important point is that you will be earning top royalty rates of if 
you prefer we will purchase your program outright. 

Please write, in confidence, to Mr. D. Clare at: 

Clares Micro Supplies, 

98 Middiewich Road, 

Northwich, 

CHESHIRE CW9 7DA 

if you have a program either complete or In development then please 
enclose a copy for our evaluation. 

To protect yourself we advise that you lodge a copy of the program with 
your bank or solicitor BEFORE you send us a copy. You can then prove that 
your program pre-dates anything that we have. 


Act today and become part of the leading software team producing 
software for the worlds fastest micro. 








cAutoSketch 


Reviewed by Mike Williams. 


Having recently reviewed Euclid by Ace 
Computing for RISC User {see Issue 8) I 
approached this review of AutoSketch with 
some enthusiasm. Graphics on the Archimedes 
can be very good indeed, so the opportunity to 
review another graphics package is not one to 
be missed. 

It must be pointed out immediately that 
AutoSketch serves quite a different purpose to 
Euctid. Whereas Euclid is concerned with the 
creation and manipulation of 3D objects on the 
screen r and in its approach is more of a design 
tool, AutoSketch is a 2D drafting package tor 
producing orthogonal or isometric drawings or 
similar. 

The very first impression of AutoSketch 3s 
highly encouraging. The custom packaging 
contains two 3.5" discs, a manual, an 
Archimedes Installation Guide , a Quick 
Reference Guide r and a booklet entitled 
Getting the most out of AutoSketch, All the 
printed items exhibit the same striking cover. 

The installation guide reveals the true 
nature of AutoSketch, which was originally 
developed for PCs and compatibles before 
being converted to the Archimedes. All the 
other printed materials are as produced for the 
original version of AutoSketch. However, this is 
dearly acknowledged in the installation guide, 
which provides a tutorial and two appendices to 
supplement those in the original, and covers 
the Archimedes specific elements in the menus 
(use of sprites for example). The main manual, 
some 216 pages long, suffers from the narrow 
page width used, making the manual difficult to 
open fully. 

Once installed, and configured for your 
system, the AutoSketch drawing screen 
appears on pressing Shift-Break. The display is 
pale grey, with a single line at the head of the 
screen for seven pull-down menus, and a 
further line at the foot of the screen for prompts, 
messages and user keyboard input. The seven 
menus are entitled: 

Draw Change View Assist 

Settings Measure File 



CREATING DRAWINGS 

The Draw menu allows the user to select 
any of 9 ‘shapes' which can be drawn on the 
screen. These Include points, lines, rectangles, 
circles, arcs and polygons, all as outlines only - 
no solid (or filled) shapes are possible. The 
Draw menu also allows text to be entered and 
positioned on the screen. One interesting 
inclusion is the curve option which uses splines 
to produce a smooth curve defined by a 
framework of points specified by the user. 
Previously saved drawings (or components) 
may also be imported to the drawing area. 

Many of these Draw options work in 
conjunction with the Settings menu. This allows 
various properties or parameters to be specified 
which then form the basis of other options. For 
example, it is an option in this menu which 
allows the user to specify the height, angle, 
width and obliqueness of any text entered. 
Changes to these characteristics then apply to 
any subsequent drawing, but existing features 
remain unchanged. 

The Settings menu has some other useful 
options. A grid can be superimposed on the 
screen with the user specifying the vertical and 
horizontal spacing, A snap option, when 
switched on, ensures that all points 'snap r to the 
nearest grid point. This is very useful for 
accuracy and correct alignment. Drawings may 
also be constructed as a set of up to ten layers , 
with full control over which layers are visible at 
any time. Another option provides a choice of 
ten different styles of line (continuous, dashed, 
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dotted etc). AutoSketch uses the Archimedes' 
seven basic colours for drawing on the light 
grey background, and any may be chosen as 
the current drawing colour. There is no option 
to redefine any colours though. 

Drawing can be controlled either by the 
mouse, or for greater accuracy by the keyboard 
input of co-ordinates. These are quite different 
to the usual graphics units, and the screen 
dimensions run from 0 to 12 horizontally, and 
from 0 to 9 vertically, but fractions of units may 
be used. Co-ordinates entered through the 
keyboard may be absolute or relative Cartesian 
co-ordinates, or poiar co-ordinates. Describing 
the latter, the manual confusingly refers to 
hearings 1 , which are normally measured 
clockwise from north, but in fact uses the 
Standard mathematical convention of anti¬ 
clockwise rotation starting from east 1 . 

MAKING CHANGES 

Editing your drawing requires the use of fhe 
Change menu, and this offers 13 different 
options in all. Many of the options involve 
selecting an element of the current display, and 
this is indicated on the screen by the 
replacement of the normal arrow pointer by a 
spread hand. Placing the hand over a line (or 
curve) for example will select that element. This 
is quite impressive, and AutoSketch clearly 
stores data on any drawing in a way which 
allows any individual object to be readily 
identified. 

In practice, it can often be difficult to isolate 
an Individual part of a drawing, so an 
alternative method of selection is provided. 
Pointing {with the hand) to a blank area of the 
screen allows a window or crosses box to be 
displayed. A window box selects anything that 
is totally enclosed by the box, while the cresses 
box selects anything that is even partly 
contained within the box. With practice, this 
proves both useful and easy. Furthermore, by 
enclosing a group of objects, the group can 
thenceforth be referred to as a single entity. 

For erasing parts of a drawing the Change 
menu provides three options. Erase will delete 
from the screen any selected part of the 
drawing, even when that part overwrites others. 
If you erase anything by mistake, then the 
Undo option will literally undo the last action 


performed, including the use of Undo, If that 
begins to sound confusing, there is also a 
Redo function which restores the last step 
deleted by Undo, 

Other functions in the Change menu allow 
objects to be moved, copied, stretched, rotated, 
scaled or broken. Breaking an object divides it 
into two - making a break in a line for example 
Some of these options, particularly stretching, 
are quite hard to follow from the manual and 
much trial and error becomes necessary before 
these features can be mastered. 



OTHER MENUS 

The View menu allows part of a drawing to 
be selected and enlarged, reduced or scanned 
to change the picture size and area. The whole 
picture can also be simply redrawn, very useful 
when multiple erases have left many small 
'holes' in line work. The Assist menu simply 
toggles features, such as the current grid, off 
and on. There is also a Measure option which 
allows distances, areas and angles related of 
any part of a drawing to be calculated and 
displayed. 

The last pull-down menu covers file 
handling, plotter information, and for the weary, 
and quite unexpectedly, an implementation of 
the game known as Connect Four, Save and 
Open options both make use of dialogue boxes 
to specify file names, and it is possible to 
change directories and even discs through this 
option. Drawings, or parts thereof, may also be 
saved as sprites, white a drawing can also be 
turned into a slide for subsequent display using 
the ‘SCREENLOAD command. 
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CONCLUSIONS 

Like so many graphics packages on the 
Archimedes ! find this one suffers from the 
medium resolution monitor used by Acorn with 
this system, A multi sync monitor would make a 
considerable difference, and AutoSketch can 
be configured for mode 20 rather than its 
normal mode 12. 

i would classify the package as workmanlike 
rather than outstanding, and there are many 


small features missing, such as the facility to 
draw fines with arrow heads for the insertion of 
dimensions. It would also have been useful to 
be able to cross-hatch shapes even if colour- 
filled shapes are not permissible. Other 
features might have included guide lines for two 
point perspective drawings. 

The documentation tries very hard indeed, 
but even so does not always succeed, and 
some features, as I have mentioned, are quite 
difficult to follow. Overall, I believe that 
AutoSketch, as a drafting package for the 
Archimedes, is well worth considering at Its 
price by those who require this type of 
application, but as with most applications 
ported or converted from other micros, I cannot 
help but feei that the Archimedes is capable of 
a good deal more. 


Product 

AuloSkelch 

Supplier 

AutoDesk Ltd., 


90 London Road, 


London SET 6LN. 


Tel GT-92B 7SG8 

Price 

£91 5-1 inc VAT, 



FOUR-SLOT BACKPLANE FOR 
ARCHIMEDES 305 AND 310 


From 

only £29.00 




Before you can fit any podules to a 300 series Archimedes, a backplane 
is required. Our new four-slot backplane may be fitted to any 305 or 310 
Archimedes computer, and accommodates up to four single width podules. 
Installation is very straightforward, and no soldering is needed. 


| * Accepts up to 4 podules 

* ideal for use with the 

computer concepts ram/ROM podule 

I * Money-back guarantee 

* Available as an upgrade 


UPGRADES 


If you already have a 2-slot 
backplane, then our 4-slot version may 
be obtained at a discount price. This 
offer is for a limited period 
only - please telephone for details. 


I Introductory prices (incl. VAT) 

; (Lower price applies to RISC User members) 


4-way backplane (incl. fan) £58-95 

2 way backplane (incl. fan) £41.75 

Computer Concepts ROM Podule £55,00 

As above with battery back-up £65.50 

4-way backplane as upgrade, from... £29-95 
62256 32K RAM chips £13.00 

Postage £1,00 


HOW TO ORDER: Cheques (payable 
to "IFEI/J, POs or official 
orders welcome. Access orders 
accepted on (07555) 7286. 

Please allow £1.06 P & P. 


IFEL f 36 UPLAND DRIVE, DERRIFORD* PLYMOUTH PL6 6BD (07555) 7286 










ANIMATING ARCHIE (Part 3 ) 

_ by Lee Calcroft 


This month we look into the problems of animating more complex objects on the 

Archimedes. 


Listings 1-3 SprJfeSize 7 (2 on a 400 series). 
Listing 3 ScreenSJze 20 (5 on a 400 series). 


tn the last issue we generated a sequence 
of images of a sphere, changing in size and 
angle of illumination, and created the 
impression of movement by displaying these in 
succession. We will now apply similar 
principles to a slightly more complex object. 

Our object will be a two-atom molecule, 
consisting of a pair of spheres connected by a 
thin cylindrical bond. And we will again use the 
dithering routines from last month's Visuals to 
create the three component parts (i.e. the two 
atoms and the bond between them). Broadly 
speaking the approach adopted will be similar 
to that used last month: we will use a program 
to create a sequence of images, and save each 
to the sprite area after creation. 

The program in listing 1 performs this task, 
generating a sequence of 31 sprites in mode 
13. To run it you will need at least 50K of sprite 
space (use ‘Configure SpriteSize 7 on a 300 
series machine, or 2 on a 400 series). When 
the program is run you will see each image 
created in the centre of the screen, and then 
copied to the bottom left, from where it is 
grabbed as a sprite. At the end of the program, 
the set of sprites is saved under the filename 
SgrMoisSI* 


Listing 1 

10 REM >3-lAnim 

20 REM Program Create Mol Sprites 

30 REM Version A Q. 9 

40 REM Author Lee Calcraft 

50 REM RISC User September 1988 

60 REM Program Subject to Copyright 

70 : 

SO MODE13 

90 xpix%-4:ypix%-4 
100 horss-500 
110 molrad^lOO 
120 radsl-30irads2=30 
130 lightl=3G:Xight2=3G 
140 no=0 
150 : 



Ten of the thirty one molecule sprites 


160 FOR phi%=0 TO 90 STEP 3 
170 phirad-Pi*phi%/180 
180 cosphi=CQSEphirad) 

190 sinphi=SIKEphirad) 

200 radl=radsl-5*sinphi 
210 rad2-rads2+5*sinphi 
220 1ightl=-4 5~phi%:light2=phi%-90 
230 horsl=horss+molrad*cosphi 
240 hors2-horss-molrad*cosphi 
250 PROCsphere(hors1,500,radl,light!, 3 
0 , 2 ) 

260 PROCcyl (hors2,5Q0,horsl-hors2-cosp 
hi*radl+4, 6, FALSE, 30, 6) 

270 PROCsphere (hors2,500, rad2, light2,3 

0 , 8 ) 

280 MOVE 360,460:MOVE 640,540 
290 QSCLI("SGET "+STR$no) 

300 no+“l 
310 CLS 

320 PLOT SEE,0,0 
330 NEXT 

340 QSCLI {"SSAVE SgrMol s T, +STR$ (no}) 

350 PRlNTno; 11 sprites saved" 

360 END 
370 r 

380 : =——=====— 

390 DEFFROCcylEX,Y,ht%,rad%,vert,Ll%,c 
ol%) 

400 ystep%=ypix%:xstep%-xpix% 

410 IF NOT vert THEN SWAP ystep%,xstep 

% 

420 FOR Y%=0 TO ht% STEP ystep% 

430 A%=(rad%DIV xstep%)*xstep% 
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440 FOR X%=-A% TO A% STEP xstep% 

450 Fl%=DEG ASN{X%/rad%) 

460 Dl=AB$(Pl%-Ll%) 

470 C%=7.99-D1/I4-RND(1) 

430 IF C%<0 THEN C%=0 
490 GCOLO,col%+{C% AND 4)*5.25 TINT(C% 
AND 3)*64 

500 IF vert THEN PLOT69,X+X%,Y+Y% ELSE 
PLOT 69,xm,Y+X% 

510 NEXT:NEXT:ENDPROC 

52 0 : ^========= ===—= 

530 DEFPROCsphere (X, y, rad%,Lll,L2%, col 

%) 

540 FOR Y%-rad% TO ~rad% STEP -ypix% 
550 A%-(SQR(rad%*rad%-Y%*Y%)DIV xpix*) 
*xpix$ 

560 FOR X%~-A% TO A% STEP xpix% 

570 P1%=DEG A5N(X%/rad%> 

580 P2%=DEG ASN(Y%/radl) 

590 D1-ABS(P1%-L1%):D2=ABS(P2%-L2%) 

600 C%=7*99-SQR {D1*D1+D2*D2)/14-RND { 1) 
610 IF C%<0 THEN C%=0 
620 GCOLO/COl%+(C% AND 4)*5.25 TINT(C% 
AND 3}*64 

630 PLQT69,X+X%,Y+Y%:NEXT;NEXT 
640 ENDPROC 

As you will notice, both the size of the 
spheres, and the fighting angle, are altered as 
the sequence proceeds. Both of these effects 
will add to the impression of movement when 
the molecule is finally displayed. If you take a 
took at the program, you will see that the loop 
counter, phi%, of the FOR loop which 
generates the image sequence, runs from 0 to 
90 degrees in steps of 3 degrees. This Is the 
angle between the X axis and the line between 
the two atoms - see Figure 1. All the variable 
parameters of the image, such as apparent 
length of cylindrical bond, apparent radius of 
the molecules, lighting angle, and so on, are 
dependent on this angle. To illustrate the 
principte, consider the horizontal position 
(hcrsl) of the right-hand molecule. This is 
calculated in line 230 by the expression: 

horsl=horss4molrad*cosphi 

where horss Is the horizontal position of the 
centre of the molecule, molrad is half the 
distance between the centres of the two atoms, 
and cosphi is the cosine of the angle phi% in 
radians. The position of the other atom, and the 


apparent length of the cylindrical bond joining 
them is similarly dependent on phi%. 



Figure 1 


Once the program has been run, and the 
sprite file created, you can use listing 2 to 
animate the images. This short program causes 
the molecule to swing back and forth in a 90 
degree arc as it bounces around the screen. By 
altering this program in various ways you can 
make the molecule move through any 
trajectory. You can also create quite different 
and complex objects by changing the program 
in listing 1 which generates the Image 
sequence. But although you can make the 
sprite images as complex as you wish, there is 
a definite upper limit to the size of sprite used, 
ff it is too large, the processor will still be 
plotting it when the VDU drivers access VDU 
RAM to update the monitors screen, causing 
serious flicker. By using the WAIT statement we 
have linked sprite plotting to the frame scan 
rate, and so minimised the effect. But to free 
ourselves more fufty from this limitation we can 
resort to a technique called screen flipping. 
This involves using dual screens, and drawing 
each sprite on the screen currently out of view, 
and then flipping screens to reveal the 
completed image. 

Listing 2 

10 REM >3-2Anim 

20 REM Moves 6 rotates molecule 
30 REM Using SgrMols31 sprites 
40 : 

50 MODEL3■OFF 
60 *5LOAD SgrMoLs31 
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10 Y%=500:X%=5G0 
80 GCOL 3,0 
90 no=0:n=8:p=6:a=l 
100 REPEAT 

110 IF XIXL0GO OR X%<100 THEN rs=-n 
120 IF Yl>800 OR Y%<100 THEN p=-p 
130 X%+=n;Y%+=p 
140 VDU23,27,Q,no| 

150 PLOT &ED,X%,Y% 

160 WAIT 

170 PLOT 6ED,X%,Y% 

180 no+=a: IF no=30 OR no~0 THEN a=-a 
190 UNTIL FALSE 

The program in listing 3, which requires a 
screen size of 160K f uses this principle. It is 
very similar to that in listing 2, The three most 
important additions are lines 120 t 130 and 210. 
The first switches the value of b% between 1 
and 2 on each cycle of the loop. The second 
uses the OSBYTE equivalent of TX112 to 
determine which screen is written to. When 
b%=1 it is the normal screen, but with b%=2, 
the VDU drivers write to the shadow screen. 
Then in line 210 the displayed screen is also 
flipped. The sequence is as follows: 

1, Display screen 1 

2. Write to screen 2 

3, Display screen 2 

4. Write to screen 1 
and so on. 

This ensures that each sprite plotting operation 
is carried out on a screen hidden from view. 

This saves time, because the observer can 
look at a given image for the whole time that it 
takes to create the next. You may remember 
that in our earlier program we could do very 
little while any given sprite was on screen, 
because we had to remove it before beginning 
to plot the next. Now we have so much time 
that we could make our sprites larger if we 
wished, and can take them right to the top of 
the screen without fear of flicker. 

Listing 3 

10 REM >3-3Anim 

20 REM Moves & rotates molecule 
30 REM Using SgrMols31 sprites 

40 : 

50 ON ERROR MODE 12: REFORT: PRINT 1 ' at 
line ";ERL:END 


60 MODE13:COLOUR 168 
70 *SLOAD SgrMols31 
80 Y%~500:X%=500 
90 no=0:n=8:p-6:a=l 
100 b%=l 
110 REPEAT 
120 b%=l-(b%=l) 

130 SYS 1, OS_ByteM12,b%:REM Driver 
140 CLS 

150 IF X%>1000 OR X%<0 THEN n=-n :SOUND 
1,-15,70,2 

160 IF Y%>950 OR Y%<0 THEN p=-p;S0UND 
1,-15,70,2 

170 X%+=n:Y%+=p 
180 VDU23,27,0,no| 

190 PLOT &ED,X%,Y% 

200 WAIT 

210 SYS "OSByt e" f 113,b% : REM display 
220 no+=a; IF no=30 OR no=G THEN a—a 
230 UNTIL FALSE 

In fact there is so much time between 
frames that you can plot an armada of swinging 
molecules with no loss of speed, by repeating 
the PLOT &ED statement with different co¬ 
ordinates (e g, X%+100, Y%+10G etc.). You 
may also have noticed that we no longer need 
to set GCOL to 3 since we do not have to rely 
on Exclusive OR plotting to erase the previous 
sprite; we use CLS instead to clear the entire 
screen. As a result we can give our picture a 
coloured background (see line 60). To make 
this work properly you will need to re-run the 
sprite generator with a similarly coloured 
background (add COLOUR 168 to the end of 
line SO in listing 1). 

This flip-screen display technique eliminates 
some of the limitations associated with sprite 
plotting. But there remain two problems. The 
first is that using sprites eats up RAM very 
quickly if the objects are of any size, or if the 
sequence is to last more than a second or two. 
Secondly, you cannot very easily build up a 
complete scene because the background of 
each sprite will over write anything in its path. 
This latter problem can be overcome by using 
transparency masks with each sprite, but this is 
a somewhat involved process. Next month we 
will introduce the Delta File technique which 
overcomes these problems in a highly 
economical manner. rm 
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he premier exhibition for users 
f all Acorn machines returns to 
s popular venue in the heart of 
ie capital 

Traditionally the liveliest event 
f the year on the Acorn 
alendar. the pre-Christmas 
now is the one you just cannot 
fford to miss 

's your value-for-money 

• s sport to: 

• 70 exhibitors displaying all 
the latest developments 
across the entire Acorn 
range 

1 Archimedes World - which 
provides a fascinating 
glimpse into the current and 
future roles for this 
remarkable machine. 


New Horticultural Hall 
Greycoat Street, 
London SW1 

10am-6pm Friday, November 11 
10am-6pm Saturday, November 12 
10am-4pm Sunday, November 13 


Take a stroll down Innovation 
Row a brand new show 
feature area, specially 
constructed for the event 
See the grand finalists 
displaying their breakthroughs 
in public for the first time And 
you can help pick the winners 
by casting a vote in both 
categories of the awards - 
BBC Micro and Archimedes 


Please supply tickets for November show 
i_i Adult tickets at C4 (save Ct l 


if ' ^ 

7> da 

i \i 

S i i 

'/ § L 

dt j > t.S 



1 Technical advice from the 
UK’s leading experts on all 
Acorn computers 
Hundreds of special offers for 
the BBC Micro and Electron 
waiting to be snapped up as 
top-value Christmas presents 


□ Under 16s tickets at f2 SO (save ft | 


□ Cheque enclosed made payable to 
Database Publications Ltd 


f 

Total f _ 


□ Please debit my credit card account: □ Access □ Visa Expiry date 

Llll.J Lilli 11111 Li 


JJ 


How to get there 


Underground The nearest tube 
stations are VICTORIA (Victoria. 
District and Circle Lines), 

ST JAMES'S PARK (District and 
Circle Lines) and PIMLICO 


II this - and so much more - 


(Victoria Line). 


the 20th record breaking 
ectron & BBC Micro User 
now 


fu can even save yourself £1 
flora you get there by using 
is advanced ticket form 


Signed 

Post to Database Exhibitions. Europe House. Adbngton Par*. Adkngton, Macclesfield SK10 4NP \ 

n*TA n A or- PHONE ORDERS Ring ShowHodine: 0625 879920 
UAlAbAbt. Prastal Orders: KEY *89 THEN 614568383 
P VI 41UlTlf YvK MfcroUnk/Tafecom Gold Orders 72 MAG001 

f.AI 1lhl 1 Please quote credit card number and full address 

A 496 I 


By British Rail VICTORIA 
STATION The halls are a 10 
minute walk from the station 


By Bus 11. 24, 29. 70, 76 and 
Red Arrow 507 to Victoria Street 
- alight Army and Navy Stores. 











NEWS FROM THE PC SHOW 


Mike Williams reports on some exciting news (or Archimedes Users* 


The PC show, held at Earls Court, London 
from the 14th to 18th September 1988, proved 
to be more than usuafly interesting for Acorn 
watchers. Several new developments, which 
may well have a profound effect on the future of 
the Archimedes, were unveiled to the public for 
the first time. 

RISC OS FOR THE ARCHIMEDES 

By far the most significant event was Acorn's 
latest development of Arthur for the Archimedes 
which offers a sophisticated multi-tasking 
environment. The new operating system, 
previous known as Arthur 2, has now been given 
the official name of RISC OS. 

The main feature of the new OS is the 
incorporation of multi-tasking via the WIMP 
environment. Different tasks or applications may 
be active at the same time and can 
communicate with each other. The obvious and 
immediate beneficiary is the Desktop, which now 
provides a much enhanced level of user- 
friendliness, like the Apple Macintosh, but with 
extra colour. 

Files may be "dragged 1 from one location to 
another on the screen, and one application can 
be readily interrupted by another. The facility to 
build up layers" of activities provides a highly 
flexible and practical working environment. 

RISC OS also includes three new bundled 
applications, a text editor, a new painting 
package and a drawing package. These 
application tools atl look more than usually 
useful Other utilities include an alarm clock, a 
calculator llnd an electronic mall system for 
network users. A new improved 6502 emulator, 
called 65Host, has also been incorporated. 

The only bad news Is that RISC OS will not 
be available until April 1989 according to Acorn, 
but the upgrade price (from Arthur 1.2 to RISC 
OS) is expected to be no more than £50. 

ACORN DTP 

Acorn was also demonstrating what is 
intended to be a flagship desktop publishing 
package for the Archimedes. This is based on 
the popular Timeworks package by GST, 


originators of the Arc’s word processor, 1 st Word 
Plus. Acorn DTP is fully window based, allowing 
page layouts to be created with ease. It appears 
to have most of the features required of desktop 
publishing, the only main weakness at present 
being the limited number of fonts available. 

Acorn DTP is equally at home handling 
graphics images, which can be imported onto 
the page and rescaled and resized as required. 
This is where the multi-tasking comes to the 
fore. At any time the DTP package can be 
interrupted to use any other application to 
produce text or graphics for the DTP. 

I was genuinely impressed by both RISC OS 
and Acorn DTP, and cannot wait to get my 
hands on both. 1 am only sorry that the majority 
of Archimedes users will have to wait tilt next 
year before they can do the same. 

PROARTISAN FROM CLARES 

If that were not enough, Dave Clares" 
demonstration of the ultimate in art packages for 
the Archimedes must have had many visitors to 
the show drooling at its stunning images. 

The package uses 256 colours in mode 15, 
and these are displayed on-screen in four 
logically arranged colour charts. All the features 
of Clares' original Artisan remain, but have been 
significantly added to or improved. It is, perhaps, 
in the area of image distortion that the most 
amazing effects can be produced, with user 
defined sprites being distorted over the surfaces 
of cubes and spheres and many other shapes. 

The colour fill function now has a novel 
feature, allowing the use of a range of shades 
from light to dark In any colour. Perhaps the 
most fascinating effect is that of the wash. Use 
the airbrush to spray a mosaic of coloured dots, 
and the wash gives an effect as though a few 
drops of water had been allowed to fall on the 
paper. 

ProArtisan really is an amazing piece of 
software which we wif! be reviewing in full very 
soon. The only disappointment for most 
Archimedes users will be the price which is 
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NEWS FROM THE PC SHOW 


1 


£169.95, rather pricey even il it does include (for 
a limned period) a genuine wooden artist's 
palette box. 

COMPUTER CONCEPTS TOO IMPULSIVE? 

Computer Concepts was demonstrating an 
early version of its own DTP software, but 
enough to show that this has considerable 
potential. However, CC now appears to be 
having some second thoughts about its own 
Archimedes operating system, Impulse (see 
RISC User Issue 8). Maybe RISC OS is much 
better than CC anticipated. As a result; CC's 
own DTP package may well be written to run 
under RISC OS. However, work is still 
proceeding apace on Impulse, and we may even 
see two versions of their DTP software 
emerging, one for RISC OS and one for 
Impulse. Like everything else we shall have to 
wait and see. 

CC also demonstrated a RISC card designed 
to turn any PC into a fully compatible 
Archimedes. Apparently CC has not yet decided 
whether this board should offer their own 


impulse or Acorn's RISC OS as its operating 
system. More disappointingly, the promised fax 
add-ons for the Archimedes are still a long way 
off completion, and late 1988 or, (more likely) 
early 1989 was suggested for fully BAST 
approved systems. 

DABS PRESS COMPILE A SURPRISE 

Surprise new product from Dabs Press, 
better known for its popular books, was a 
working version of ABC, a Basic compiler for the 
Archimedes written by Paul Fellows, Acorn's 
ex-product manager for Arthur. The compiler is 
claimed to offer as much as a 40% increase in 
execution speed, and will be available very 
shortly for under £100. 

For the Acorn market, the 1988 PC Show 
turned out to be one of the most interesting and 
exciting for years, and I probably haven't done 
justice to all the Archimedes products on display. 
We shall certainly be doing all we can to keep 
everyone fully informed of future developments. 
Indeed, we expect to cover RISC OS in our very 
next issue. pm 


PRESENTER 


AFFORDABLE PRESENTATION 
GRAPHICS FOR THE 

ARCHIMEDES 

msam . s a truly prefers ionat graph;:s progran allots the user to 

treats iiedify print nut or photograph high quality cglguir displays oi 
data in eitJier bar. p;e or line format Data is entered eitner nanus]iy ia 
spreadsheet fashion or can be :apcrted Frcri ether spreadsheets or programs 
ir. coins separated format NfFSfiirEfl lanes full use of toe Archiatdes' ^ I HP 
environment and high tasolution graphic "ndes and incorporates 3D displays. 
auto j scaJin$ axis, usar-cefir.able layouts and nalt' layer graphs Screens 
nay be saved for ij.se wlt.b graphics packages like Afl"fSAflf or graphic 
s-zrdprocessors Like fjf JT0M TO & firUHK ffflfTEfl pflESfm can also' be 
used with FfPFflflfAfl. 


At anLj L2F95 ex-VAI is an .nshaute extension to existing 

*ordprocessors and spreadsheets Et .s a cast for atl Are.hiaeaea' users 


FJir 5 F.!ffEfl is a v a l l & 1 e E run all good At ere deahrs, or Direct f ras 
LEHGEfiUITT. Telephone oners accepted - ring £90 685 4 T& 
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MOUSE CONTROLLED CURSOR 


This short module from Frank Wessels lets you replace the cursor keys (and others) by the 

mouse for virtually any application. 

While many Archimedes programs are written to 170 .command equS 1f MouseCursor n :EQUB 0 
use the mouse, software such as the Basic Editor iso align :EQud mcurser : equd to 0040001 

relies on the cursor keys to move around the text. 190 equd mcsy :equd mcheip:EQUD o 

The program listed here creates a relocatable 200 .mchelp equs "Use *MouseCursot On 
module that makes moving the mouse simulate the f<nl>] f<n2>t (<n3>) to move the cursor 

cursor keys being pressed, and also lets the mouse with the mouse.":EQUB ioiequb 13 
buttons produce ASCII codes. Because of the way 210 EQUS "Left, middle and right but to 

the module is written, the mouse can be used in n generate ASCII codes nl,n2 and n3 resp 
almost any case where cursor keys would otherwise ectively.": equb 10: equb 10: equb i 3 

be needed. To use the program enter the listing, 220 EQUS "Use *MouseCursar Off to drsa 
save it, and run it This assembles the module and bl « cursor movement with the mouse.":EQU 

saves it to disc with the name 'CursorRM'. To load B 0 :align 

this module type *CursorRM. If this results in the 230 .mcursor stmfd rise,(R14]:LDRB R2, 

error 'No room in RMA', type QUIT and try loading [R0],#l:AND R2, R2,#fiDF 

the module again. 240 cmp R2^ #asc m o" :BNE merr 

250 LDRB R2, [HO],#1:AND F2,R2,noFtCMP 
Once the module is installed, it is controlled by a R2, flASC’N": beq mcon 
single command, ‘MouseCursor. Typing 260 CMP R2, #ASC"F hh : BEQ mcoff:BNE merr 

‘MouseCursor On will cause the mouse's 270 .mean adr R5,rb:HOV r4,#0;STRB R4, 

movements to move the screen cursor, white rb :strb R4,rb+l:STRB R4 r rb+2 

'MouseCursor Off will disable this. The command 280 sub R3,R1,#1:M0V r4,r0:mov R6,#2 


‘MouseCursor On can be followed by up to three 
numeric parameters. These numbers specify the 
codes to be inserted into the keyboard buffer when 
the mouse buttons are pressed. The first value is for 
the left-hand button, the second for the middle one, 
and the third for the right-hand one. These numbers 
may be in decimal, or in hex if preceded by an 
For simple characters, the number is just the ASCII 
code of the character, while the codes for special 
keys are given on pages 166 and 168 of the 
Programmer’s Reference Manual . We will be 
covering the subject of key codes in a luture issue 
of RISC User, For example, 

*MouseCursor On £SB &D frCD 
will make the left-hand button mimic Copy, the 
middle button Return, and the right-hand button the 
Insert key, 

10 REM >MouseCur 

20 REM Program Mouse Cursor 

30 REM Version A 1.0 

40 REM Author Frank Wessels 

50 REM RISC User October 1988 

60 REM Program Subject to copyright 

70 : 

80 DIM code £1000:SVCMode=3 
90 FOR pass |-4 TO 7 STEP 3 
100 O!»code:P%~0 
110 L OPT passi 

120 EQUD Q:EQUD Q:EQUD 0:EQUD 0 
130 EQUD title:EQUD help:EQUD command 
140 .title EQUS "MouseCursor”:EQUB 0 
150 ALIGN 

160 .help EQUS "Mouse Cursar ,1 TCHR$9+ H 'l 
.00 {01 Sep 1988)";EQUB 0:ALIGN 


290 .gkclaop;SUBS R3,R3,#lrBMl gkccont 
;BL getkeycade:BVS merr 

300 STRB R2,[R5,R6J:ADD R4,Rl r #l;SUB R 
6,R6j#1:B gkcloop 

310 .gkccont ADR Rl r mbIock:MOV r0,#21: 

SWT "OS^Word" iMOV R0,#£1C:ADR Rl,tv 
320 MOV R2, #0: SWX "OS_Claim": LDMFD R13 
!f CPC) 

330 i 

340 .merr ADR RQ,error:MOV Rl,PC 
350 ORR Rl ( Rl,#l«2B:TEQP RU0 
360 LDMFD R13!, {PC} 

370 : 

380 .error EQUD 254:EQUS "Bad command 
' M :EQUB 10;EQUB 10:EQUB 13 
390 .mcsy EQUS "Syntax: *MouseCursor O 
n l<nl>) [<n2>] [<n3>]";EQUB 10:EQUB 13 
400 EQUS "ASCII cades nl # n2,n3 given t 
o left, middle and right button respect! 
vely":EQUB 10:EQUB 13 

410 EQUS "Syntax: *MouseCursor Off":EQ 
UB 10:EQUB 13:EQUB 0:ALIGN 
420 : 

430 .mcoff MOV R0 ( mC:ADR Rl,tv 
440 MOV R2,#0:SWI "OS_Release" 

450 LDMFD K13!,{PC) 

460 : 

470 .getkeycade STMFD R131,[R14) 

480 MOV RQ f #&A000000A:MOV R1,R4 
490 MOV R2, #255: SWI "OS_ReadUnsigned' 1 
500 LDMFD R13!,{PC] 

510 : 

520 .tv STMFD R13E,tRQ-R12,R14} 

530 LDRB R0,toggle:SUBS RQ,R0,fl 

Continued on page 30 
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This month's Visuals comprises a full-implementation of John Conway's Life, 
and a giant beach ball. 


In just 80 lines of code, this program 
achieves a fufl implementation of a mouse- 
driven Life. The start pattern is entered with the 
mouse, in a similar way to any drawing 
program (select to draw, adjust to erase). 
Pressing the menu button sets the display into 
motion. The program T which runs at several 
generations per second, can be interrupted at 
any point (with the menu button), and altered 
with the mouse, before re-running. The 
program uses bank switching to give a stable 
display, and makes use of fully legal point 
plotting routines, thus enabling it to work in any 
mode. 


Buttons 

Select 

Menu 

Adjust 

Adjust+Menu 


Effect 

□row 

Start/stop display 
Erase 

Clear display 

Controls 


10 REM >Life 


20 REM Program Mouse-driven Life 

30 REM Version A 0.3 

40 REM Author Jim Walpole 

50 REM RISC User October 1988 

60 REM Program Subject to Copyright 


70 : 

80 ON ERROR MODE 1: REPORT : PRINT 11 at 1 
ine ";ERL:END 


90 DIM code% 25000:MODE l:OFF 
100 FOR I%~0 TO 25000 STEP 4:code%!l%= 
0:NEXT 

110 FROCassemble 
120 REPEAT;PROCsetup 

130 REPEAT:PROCgenerate:MOUSE X%,Y%,B£ 
140 UNTIL B%=2:REPEAT:MOUSE X%,Y£,B% 
150 UNTIL B%=0:UNTIL FALSE 
160 : 

170 DEF PROCsetup 

180 screen-1:PRGCwritescreen(screen) 
190 PROCshowscreen(screen) 

200 MOUSE ON:MOUSE TO 640,512 
210 REPEAT 



220 REPEAT MOUSE X%,Y%,B%:UNTIL B% 

230 IF B%=4 THEN X%=X%»3:Y%=Y%»3;fie 
Id? (X%+Y%*160) -10: POINT X%«3, Y%«3 
240 IF B%—1 THEN X£-X%»3: Yl=Y%»3: f ie 
Id? (X%+Y%*i60) =0 : GCOL 0: POINT X%«3,Y%« 
3:GCOL 3 

250 IF B%=3 THEN CLS:FOR I%=field TO c 
ode%+25DQG STEP 4:!I%=0:NEXT 
260 UNTIL B%=2: MOUSE OFF 
270 REPEAT:MOUSE X% f Y%,B%:UNTIL B£^G 
200 ENDPROC 
290 : 

300 DEF PROCgenerate 

310 CALL generate 

320 PROCwritescreen(3-screen) 

330 CLS;CALL update 

340 PROCshowscreen(3-screen);screen=3- 
screen 

350 ENDPROC 
360 : 

370 DEF PROCwritescreen(n) 

380 SYS ,T OS_ByteL $70,n 
390 ENDPROC 
400 : 

410 DEF PROCshowscreen (n) 

420 SYS “OS_Byte"#£71,n 
430 ENDPROC 
440 : 

450 DEF FROCassemble 
460 FOR opt%—0 TO 2 STEP 2 
470 P%=code%:[OPT opt % 

480 .generate 
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490 ADR R0,field:MOV R2,#0 
500 .nextCellGen 

510 LDRB Rl,[RO,#+160]:CMP Rl,#9 
520 BLE skipGenerate 
530 LDRB Rl,[RO,#—1J :ADD Rl,Rl,#l 
540 STRB R1, [RO,#-l]:LDRB Rl,[RG,#-0] 
550 ADD Rl, Rl,ff1:STRB Rl,[R0,#-0] 

560 LDRB Rl, [RO,#+l]:ADD Rl,Rl,#l 
570 STRB Rl,[R0,#+1] 

580 LDRB Rl, [R0 f ff+159] :ADD R1,R1,U 
590 STRB Rl,[HO,#+159] 

600 LDRB Rl,[RO,#+l61J :ADD Rl,Rl,#l 
610 STRB Rl,[RO,#+161] 

620 LDRB Rl,[RQ,#+319]:ADD R1,R1,#1 
630 STRB Rl,IRQ,#+319] 

640 LDKB Rl,[RO,#+320]:ADD Rl,Rl,#l 
650 STRB Rl,[RO,#+320] 

660 LDRB Rl r [RQ,#+321]:ADD R1,R1,#1 
670 STRB Rl,[RO,#+321] 

680 .skipGenerate 

690 ADD RO,RO,#1:ADD R2,R2,#1 

700 CMP R2,#20480: BNE nextCellGen 

710 MOV R15,R14 

720 .update 

730 ADR R3, field: MOV R0,#69 
740 MOV R1,#0:MOV R2,ffQ 
750 .nextCellUp 

760 LDRB R4,[R3,#+160]:CMP R4,f3 
770 CMPNE R4,#12:CMPNE R4,fl3 
780 MOVEQ R4,#lO:MOVNE R4,#Q 
790 SWIEQ °0S_P1 ot 1 ' 

800 STRB R4,[R3,#+160]:ADD R3,R3,#1 

810 ADD Rl,Rl,#8;CMP R1,#128G 

820 MOVEQ Rl,#0:ADDEQ R2,R2,#3 

830 CMP R2, # 1024 ; BNE nextCellUp 

840 MOV R15,R14 

850 EQUD 0 

860 .field 

870 }NEXT:ENDPROC 








(icp J^r &&&& 

This very shod routine generates a giant 
moving chequered beach ball. It is animated by 
repeatedly switching physical colour 
assignments. Note the use of the WAIT 
statement in Sine 290, This keeps flicker to a 
minimum by synchronising screen updating 
with the monitor's vertical flyback. 
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REM 

REM Program 
REM Version 
REM Author 
REM RISC User 
REM Program 


>Ball 

Beach Ball 
A 0.2 

Simon Proven 
October 1988 
Subject to Copyright 


MODE 12 

FOR N=0 TO 1280 STEP 1280/96 
GCOL 15-fW DIV (1280/96)MOD 8} 
RECTANGLE FILL N,0,1280/96,1023 
NEXT 



130 FOR N=0 TO 90 STEP 90/32 
140 GCOL N DIV (90/32)MOD 8 
150 VDU24,0; 0;640;1023; 

160 ELLIPSE FILL 640,512,COS(RAD N)*50 
0,500 

170 VDU24,640; 0;1279; 1023; 

180 GCOL 7-(N DIV (90/32}MQD 8) 

190 ELLIPSE FILL 640,512,COS(RAD N)*50 
0, 500 
200 NEXT 

210 VDU26;GCOL 3,4 

220 FOR N=12 TO 1012 STEP 100 

230 RECTANGLE FILL G,N,1279,50 

240 NEXT 

250 REPEAT 

260 FOR N=0 TO 7 

270 COLOUR {N+ 4)MOD 8,1:COLOUR 8+(N+4 ) 
MOD 8,4 

280 COLOUR N, 7:COLOUR N+8,7 
290 WAIT:NEXT 
300 UNTIL FALSE 

m 
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2690 PROCbox(38, 0,12,12} 

2700 PROCbox(50, 0, 2,12) 

2710 PROCbox(52, 0,28,12);GC0L 0 
2720 FOR pointers=0 TO 3 
2730 RECTANGLEFILL 64+pointerS*192,28,1 
35,135 

2740 NEXT pointers 
2750 FOR rgb=0 TO 2 

2760 RECTANGLEFILL 860,28+rgb*32,387,23 
2770 NEXT rgb 

2780 RECTANGLEFILL 860,224,391,143 

2790 RECTANGLEFILL 860,380,391, 71 

2800 RECTANGLEFILL 28,220,771,771 

2810 GCOL 11 

2820 FOR grid=0 TO 32 

2830 RECTANGLE 28+grid*24,220,3,771 

2840 RECTANGLE 28,220+grid*24,771,3 

2850 NEXT grid 

2860 FOR gcol=Q TO 3 

2870 GCOL gcol!RECTANGLEFILL 866+16*(gc 
ol*6) ,228, 93,135 
2880 NEXT gcol 
2890 FOR t=l TO 8 
2900 READ y,t$:PRINTTAB(54,y>t$ 


2910 IF y=14 OR y-15 THEN READ tS:PRINT 
TAB(69,y)tS 
2920 NEXT t 

2930 DATA 1,"THE MOOSE POINTER EDITOR" 
2940 DATA 2," By Barry W Christie " 
2950 DATA 3,"RISC User October 1988" 
2960 DATA 6,"Load previous definition" 
2970 DATA 10,"Save current definition" 
2980 DATA 14,"Display the","Clear the" 
2990 DATA 15,"new pointer"," pointer " 
3000 DATA 27,"RGB Content Of Colour" 
3010 ENDPROC 
3020 : 

3030 DEF PROCbox (x,y,w,h) 

3040 x=x*16:w=w*16-l:y=y*16:h=h*16-l 

3050 FOR boxtint=0 TO 3 

3060 GCOL boxtint+12 

3070 RECTANGLEFILL x+0,y,w-0,h-0 

3080 GCOL boxtint+10 

3090 RECTANGLEFILL x+4,y,w-4,h-4 

3100 x+=4:y+=4:w-=8:h-=8 

3110 NEXT boxtint 

3120 GCOL 9:RECTANGLEFILL x,y,w,h 

3130 ENDPROC ED 


MQUSE CONTROLLED CURSOR (Continued from page 27) 


540 MOVMI RQ,15:STRB RG,toggle 
550 BPL exit:MOV R9 F PC 
560 ORR R8 f R9, #£VCMode:TEQF R3,#0 
570 MOVWV RG, RD: STMFD R13),{R14) 

580 SWI "OSMouse" :LDMFD R13!,{R14} 

590 TEQP R9 F #0:MQVNV RQ,R0:MOV R8 F R2 
600 ADR R6,rb:BL button:MOV R2,R5 
610 MOV R8,R3,ASRil:ADD R6,R6,#1 
620 BL button:MOV R3,R5 
630 MOV R8,R8,A$R#1;ADE R6 r R6, #1 
640 BL button:MOV R4,R5:MOV R7,#141 
650 SUBS RQ r R0,#64Q:RSBMI R0,R0,&0 
660 MOVMI R7, # 14 0: MOV R8, R0, ASR# 4 
670 CMP R8,#G:MOVEQ R7,#0 
680 MOV R5 F ff 143: SUBS Rl,Rl,#5l2 
690 RSBMI Rl,Rl F # QiMOVMI R5 F tfl42 
700 MOV R6 r R1,ASR# 4:CMP R6,#0 
710 MOVEQ R5,#0:MOV R10.RC 
720 ORR RO,RIO, #SVCMode 
730 TEQP R9,#0;MOVNV RQ,RQ 
740 STMFD R13! F {R14):MOV R0,#138 
750 MOV R1,#0:CMP R2 r #0:SWINE "OS_Byte 
" :MOV R1,#0:MOVS R2,R3:SWINE ,H OS_Byte” 
760 MOV R1 F #0: MOVS R2 F R4: SWINE "OSByt 
e” : MOV R9,#0:MOVS R2,R5: BEQ noymove 
770 -yloop STMFD R13!,{R0-R2| 

730 SWI fr OS_Byte" : LDMFD R13!, (R0-R2} 
790 SUBS R6, R6, # 1: BNE3 yloop 


300 ADD R9,R9,U 

310 .noymove MOVS R?,R7:BEQ noxmove 
320 -xloop STMFD R13MRQ-R2} 

330 SWI ,s OS_Byte HI : LDMFD R13MRQ-R2} 

340 SUBS RE r R3,#l:BNE xloop 

350 ADD R9,R9„#1 

360 ♦noxmove CMP R9 P #0 

370 BEQ nomousemove:ADR Rl r mblock 

380 MOV R0,f21:SWI "OS_Woid" 

890 .nomousemove LDMFD R13!,{R14] 

900 TEQP RID,#0:MOVNV RO,R0 
910 ♦exit LDMFD R13!,1R0-R12, PCJ 
920 : 

930 -button MOV R5 r fl0:MOV R7 r #4 

940 TST Ra,|l:BEQ bcont 

950 LDRB R7,[R6,#3]:CMF R7,#4 

960 LDREQB R5,[R6J:SUBS R7,R7 f #l 

970 MOVMI R7,#0:LDRMIB R5,[R6J 

930 .bcont STRB R7,[R6,#3]:MOV PC,R14 

990 : 

1000 .mblock EQUB 3:EQUW 640:EQUW 512 

1010 -toggle EQUB 0:EQUW 0 

1020 -rb EQUB Qt.mb EQUB 0:-lb EQUB 0 

1030 .rbdelay EQUB 0:.mbdelay EQUB 0 

1040 .lbdelay EQUB 0 

1050 J NEXT 

1060 SYS ir OS_File'\10, "CursorRM",&FFA, , 
code,OS 
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RISC USER TOOLBOX (Part 4) 


David Spencer extends Iasi month s disc sector editor, to enable named files to be 

examined. 


The two commands added to the Toolbox last 
month both invoke the disc sector editor. The 
difference between them is in the way tn which the 
start address is specified. The *DED!T command 
specifies a particular start address on the disc, 
while ‘DEDITT allows the start to be specified in 
the form of head, track and sector numbers. This 
month we add a further command, 'DEDITF, 
which takes a filename as its argument. The sector 
editor is then started at the first sector used to 
store the given file. 

As before, the listing given below should be 
added to the complete program from last month. 
You must therefore ensure that the program from 
part 3 is not renumbered in any way. Once the 
new lines have been added, the program should 
be saved under a new name. Running the program 
will assemble the revised Toolbox and save it to 
disc. The Toolbox module can then be loaded as 
before. This month's magazine disc contains the 
source code for the complete Toolbox. 

The syntax of the *DEDITF command is: 

*DEDITF l<drive>] <pathname> 
e,g, *DEDITF 0 $, PROGRAMS. TOOLBOX 

The pathname must not include a drive 
specification. If the optional drive number is not 
included, then the default drive (as set by * DRIVE) 
will be used. The sector editor will be started at the 
first sector used to store the named file, and can 
then be used as explained last month. 

Because of the way that directories are stored 
on an ADFS disc, *DEDITF can also be used to 
examine a directory, simply by specifying the 
directory name in the command. However, it is not 
recommended that you actually modify a directory 
in this way, because although it is possible, it is all 
too easy to corrupt the directory’s contents and 
lose access to all the files and sub-directories 
contained within it. 

329 EQUS "DeditF"tEQUB 0 

330 ALIGN :EQUD deditfC:EQUD £20001 

331 EQUD defsymEQUD defhlp 

1401 .defhlp EQUS "*DedftF Invokes the 
disc editor at the start of the named fi 
ie." :EQUB 13 

1402 .defsyn EQUS "Syntax: DedttF [<dri 
ve> J <pathname>":EQUB 0: ALIGN 

2 657 ECUS "DiSCFindAdd":EQUB 0 

3713 B swi? 

5895 MOV R6,#0:STR R6,[R12,#24] 


6285 LDR R4,[R12,#24]:ORR R4,R4,#1 

6256 STR R4,[R12,*24] 

6551 LDR R4, [R12, #24] :ORR Rl f Rl,R4,L5L 

#2 

9601 STMFD R131 # {RQ-R2}:MOV R0,#227 

9602 MOV K1,H9Q:M0V R2,#0 

9603 SKI "OS_Byte":MOV R5,R1 

9604 LDMFD R.13 !, {R0-R2 }■ STMFD R13!,{R5} 

9831 LDMFD R13!,{Rl):MOV R0,*227 

9S32 MOV R2,#ChSWI "OSByte" 

10170 .deditfc STMFD R13MR14} 

10180 LDR R12,IR12J:MOV R2,#2:BL gdrv 
10190 STMFD R13!,{R0}:BL swi7 
10200 LDMVSFD R13!,{R1,PC] 

10210 MOV R3,R0:LDMFD R13!,{RQ} 

10220 BL swi4:B dedit2 
10230 .adfs EQUS "ADFS* 1 
10240 .rinfo STMFD Rl3!,{Rl) 

10250 LDR Rl,[R12J:CMP R1,#0 
10260 LDMEQFD R13!,{Rl}:MOVEQ PC,R14 
10270 STRB R0,[R12,H1]:ADD Rl,Rl,fl 
10280 CMP R0,#A$C" ":MGVCC R1,#0 
10290 STR Rl,[R12J:LDMFD R13!,(HI) 

10300 MOV PC,HI4 

10310 .swi7 STMFD R13!,{Rl-R4,R14} 

10320 ADD R2,R12,#1024: LDR R3,adfs 
10330 STR R3,{R2 ], # 4 :MOV R3,#ASC":' 1 
10340 STRB R3,[R2],#liSTRB R3 r (R2],#1 
10350 OHR R3,R0, #430: STKB R3, [R2],U 
10360 MOV R3, #ASC". " : STRB R3, {R2] r #l 
10370 .swi7_2 LDRB R3,ER1],#1 
10300 CMP R3,#A$C" ":BEQ swi7_2 
10390 .swi7_3 STRB R3,[R2] r #l 
10400 CMP R3,#A5C" ":LDRCSB R3, [Rl],#1 
10410 BCS swi7_3:MOV RQ,#3 
10420 MOV Rl,#£74:SWI "OSByte" 

10430 STMFD Rl3! f {Rl}:MOV R0,#£lB 
10440 ADR Rl r rinfo:ADD R2,R12,#12S0 
10450 SWI "QS^ClainTiMOV R0, #4 
10460 STR R0 P [R12,#1280] 

10470 MOV R0,#9:ADD R1,R12,#1024 
10480 swr "XOS FSControl" 

10490 LDMFD R13!,{Rl} 

10500 STMFD R13!,{HO}:MOV R3,FC 
10510 MOV R0 p #3 : SWI "OSByte" 

10520 MOV R0,#fiIB:ADR Rl,rinfo 
10530 ADD R2,R12,#1280:SWI "OS Release" 
10540 LDMFD Rl3!,{R0}:TEQP R3,#Q 
10550 LDMVSFD R13!,{R1-R4,PC} 

10560 MOV R0,i 16:ADD R1,R12,#12BG 

10570 ADD Rl,R1,#59 

10580 SWI "OS_ReadUnsigned" 

10590 MOV RD,R2:LDMFD R13!,{R1-R4,PC} 
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ai DYNAMIC BOXING 


Use this procedure to dynamically select any rectangle on screen by clicking the mouse. 


The accompanying program allows the user 
to obtain the co-ordinates of any rectangular 
area of the screen. A small box of "moving 
dashes" similar to the WIMP window markers 
appears, and follows the pointer as the mouse 
is moved. The first click of the select button 
fixes the bottom left-hand corner of the 
rectangle. The pointer then jumps to the top 
right corner, allowing the size and proportions 
of the rectangle to be adjusted. Pressing select 
for a second time fixes the size, and causes 
the four parameters to be returned by the 
procedure. Alternatively, if menu is pressed, the 
pointer will flip back to the bottom left-hand 
corner, allowing the newly-sized rectangle to be 
moved around the screen and re-positioned. 

Such a routine has many uses. In the 
example it is simply used for drawing randomly 
coloured boxes on the screen, while In the 
adjacent article it is used to grab sprites from 
any screen, if you are using the routine in your 
own programs, you will need all the code 
between the dotted lines. As you can see, the 
main procedure, PROCmarker, has four 
parameters, and each of these is returned after 
the procedure has finished its task. The 
parameters specify the co-ordinates of the 
bottom left-hand corner of the rectangle and its 
width and height, respectively. On entry, the 
first two parameters are set to the current 
position of the pointer, while the width and 
height are both set to 16 in the example. 


We have also made use of the procedure 
PRGCmousewait. This halts the program until a 
particular mouse button is pressed. The button 
number is given as a parameter, and if this is 
-1, the routine waits until any button is pressed. 
Used with the value zero, it is extremely useful 
for flushing the mouse. 
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REM 

REM Program 
REM Version 
REM Authors 
REM 

REM RISC User 
REM Program 


>DynaBox 

Dynamic Boxing 
A 0.6 

Barry Christie 
and Lee Calcraft 
October 1988 
Subject to Copyright 


MODE13 
*POINTER 
REPEAT 


120 PROCmousewait[0J 

130 xl=wx:yl=wy:x2=16:y2=l6 

140 PROCmarker txl f yl,x2,y2) 

150 GC0L 3,HMD(63) 

160 IF mbOl THEN RECTANGLE FILL xl,yl 
,x2,y2 

170 UNTIL FALSE 
180' ; 

1000 :=*=- ' " 

1010 DEFPROCmarker [RETURN bx, RETURN by, 
RETURN cx, RETURN cy) 

1020 REPEAT 

1030 PROCboxit[bx,by,cx,cy,1,2,4,TRUE) 
1040 PRGCmousewait(0) 

1050 IF mb-4 THEN FROCboxit(bx,by,cx,cy 
,1,2,4,FALSE1 
1060 PRGCmousewait[0) 

1070 UNTIL mb-1 OR mb=4 
1Q8Q cx+=bx:cy+=by 
1090 cx-=bx: cy--=by 
1100 ENDPROC 
1110 : 

1120 DEFPRQCboxit (RETURN mx,RETURN my,R 
ETURN dx,RETURN dy,but 1,but2,but3,base) 
1130 MOUSE TO mx+ (base+1)*dx,my+[base+1 
) *dy 

1140 dotStyle=0:*FX 21,9 

1150 GCOL 3 r 7-(MODE-13 OR MODELS) *56 

1160 FROCmsquare 

1170 REPEAT 

1180 PROCmsquare:MOUSE tx,ty,mb 
1190 IF base THEN mx=tx:my=ty ELSE dx=t 
x-mx:dy=ty-my 

1200 dotstyle=[dotstyled1) MOD 8 
1210 FROCmsquare 1220 UNTIL mb=butl OR 
mb=but2 OR mb=but 3 
1230 FROCmsquare 
1240 bx=mx:bY=my:cx=dx;cy-dy 
1250 ENDPROC 
1260 : 

1270 DEP FROCmsquare 

1280 VDU 23, 6, £FCFC»dotStyle 1 

1290 PLOT 4,mx,my:WAIT 

1300 PLOT 21,mx+dx,my 

1310 PLOT 21 r mx+dx,my+dy 

1320 PLOT 21,mx,my+dy:PLOT 21,mx,my 

1330 ENDPROC 

1340 : 

1350 DEFFROCmo use wait (n) 

1360 REPEAT;MOUSE wx,wy,wz 

1370 UNTIL wz=n OR (n=TRUE AND wz>0) 

1380 ENDPROC 

1390 ; -—— EJ] 
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raft SPRITE GRABBER AND PAINTER 

L by Lee Calcraft 




Add these lines to the Dynamic Boxing routine to produce a general-purpose sprite 

grabber and painter 


This program requires some sprite space 


If you type in the fines below, end add to 
them the procedures between dotted tines from 
the Dynamic Boxing listing you will have a 
program capable of grabbing any parts of a 
screen as a series of sprites, and of painting 
anywhere on the screen using the last-grabbed 
sprite as a brush. To grab a sprite, press select 
twice (once for its position, once for its size, as 
described above). To paint with the last 
grabbed sprite, use menu. Use adjust to quit, 
and if you wish to save the sprites, use: 

*5SAVE sprites 

after quitting the program. Use *SLIST to 
catalogue the sprites in the sprite area. 
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REM >SpritcG 

HEM Program Sprite Grab & Paint 

HEM Version A 0,3 

HEM Author Lee Calcraft 

REM RISC User October 1988 

REM Program Subject to Copyright 


MODE!3 
*SNEW 

*SCREENLOAD SCREEN 
name$="Sprite":no^O 
*POINTER 
REPEAT 

PROCmousewait(-1) 
CASE wz OP 



Plotting Sprites 


160 WEEN 2:GCOL 0,0:PLOT GED,wx,wy 
170 WHEN 4:FROCgrab 
180 ENDCASE 
190 UNTIL wz=l 
200 END 
210 : 

220 DEEPROCgrab 

230 xl=wx:yl=wy:x2-l6:y2-16 

240 PROCmarker(x!,yl,x2,y2) 

250 IF nsbol THEN 

260 MOVE xl,yl:MOVE xl+x2,yl+y2 

270 OSCLI ("SGET "+name$+STR$(no)) 



Painting with Sprites 


280 not=l 
290 ENDIF 
300 ENDPROC 


m 
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SPEEDING UP BASIC 


David Spencer and Mike Williams offer some advice on speeding up your Archimedes 

Basic programs. 


Fast as the Archimedes Basic V is T 
especially when running RAMBAS1C from the 
welcome disc, many programs written in Basic 
can benefit from the appropriate choice of 
Basic instructions. The purpose of this article is 
to examine alternative ways of programming in 
Basic in order to produce more efficient 
programs. To this end we have timed a number 
of commonly used features of the language. 
We must stress that we are only concerned 
with Basic programming techniques. For 
example, given a large list of names to sort into 
order, we are interested only in the best choice 
of Basic instructions for the implementation, 
and not in choosing which sort algorithm to use. 

The first step when trying to speed up a 
program is to identify the time-critical areas of 
the program. These are the areas that will 
benefit most from a few speed Tweaks'. There 
is in fact a rule of thumb called the 80-20 rule. 
This states that it is the often the case that 
approximately 80% of the time taken to execute 
a program is spent on just 20% of the code. 
Clearly, if you can identify and speed up this 
20%, you gain much more than it you speed up 
the other 80%. As long as you understand the 
workings of a particular program, it should be 
possible to find the time-critical section. For 
example, this may be a loop that is executed 
many times, while the rest of the program only 
executes once. 

PROGRAM LAYOUT 

The first approach to speeding up any 
program is to ensure that all unnecessary 
elements are removed. REM statements, single 
colon lines and blank lines might not actually 
perform any function, but it does take Basic a 
finite time to interpret them, even on an 
Archimedes Therefore, if you remove ail such 
lines, the program will run slightly faster, albeit 
at the expense of clarity. Similarly, the Basic 
interpreter takes longer to find the next line, 
than it does to find the next statement after a 
colon. Therefore, using multi-statement lines 
wherever possible will also increase the speed, 

LOOPS 

Any code contained within a program is 
likely to be executed many times. Therefore, if 
the speed of the operations within a loop can 


be increased, the overall speed improvement 
will be many times greater. One obvious move 
is to ensure that the loop contains no 
unnecessary operations. For example, if there 
is an expression whose arguments will be 
unchanged on each iteration of the loop, then 
this need only be evaluated once before the 
loop starts, rather than on each iteration. Table 
1 shows the times taken to execute an empty 
loop 100000 times using four different 
techniques. The first is a simple loop using IF- 
THEN GOTO, the second is a FOR NEXT loop, 
the third uses REPEAT-UNTIL, and the final 
one uses WHILE-ENDWHILE 


GOTO 

12 ♦ 86 

s 

FOR NEXT 

1*48 

s 

REPEAT UNTIL 

12.18 

s 

WHILE ENDWHILE 

12.26 

s 


Table 1. 


The actual timings will depend on the 
operations performed within the loop, but the 
time overhead will remain the same The loop 
using GOTO is the slowest because the 
interpreter has to search through the program 
for the appropriate line each time GOTO is 
executed. If our test loop was at the end of a 
long program, the GOTO loop would have been 
much slower than the others. For example, the 
same GOTO loop took 14,54 seconds when 
placed at the end of a 1000 line program All 
the other times remain constant wherever the 
loop is in the program, 

PROCEDURES AND SUBROUTINES 

There are three ways of calling subroutines. 
These are GOSUB, PROC and FN. Table 2 
shows timings for 10000 dummy calls using 
each technique. For PROC and FN, the timings 
are given for no parameters, for a single 
dummy parameter, and the same parameter but 
with RETURN used in the definition. 


GOSUB 

4 

90 

s 

PROC 

5 

71 

s 

PROC {&) 

15 

31 

s 

PROC{RETURN A) 

20 

50 

s 

FN 

12 , 

.00 

s 

FN {A) 

21, 

.52 

s 

FN(RETURN A) 

26 

.90 

s 


Table 2. 
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SPEEDING UP BASIC 




ft 


As you can see, FN is slower than PROC f always performs floating point division, even if 

because a value must be returned, and the use both arguments are integers. The way around 

of a RETURN parameter is slower than a this is to use the DIV operator instead. The 

normal parameter for the same reason. The expression 1/1 evaluated 100000 times takes 

addition of any form of parameter slows 10.02 s, while replacing the Y with DiV reduces 

execution down. The GOSUB timing is the time to 8.79 $. Another speed'tweak'is to 

deceptive, because as said earlier, this will use TRUE and FALSE instead of -1 and 0. This 

increase as program length increases, offers a 10% speed increase. 


SWITCHES 

A switch is a program structure in which one 
of several options is executed according to a 
condition. The simplest switches are ON- 
GOTO, and ON-GOSUB. Both of these should 
be avoided for the reasons given earlier. A 
more elegant solution is ON-PROC which is 
much faster than the previous two. However, if 
you use this method observe the warning given 
above regarding parameters The CASE 
statement is provided specifically for 
performing switches, while another alternative 
is to use the multi-line form of IF-THEN-ELSE 
1o nest a set of comparisons and actions. Using 
the four methods to implement a simple switch 
that takes a number from 0 to 9 and prints out 
"ZERO’' to "NINE", gives the timings for 10000 
runs given in Table 3. 


ON-GOSUB 

10 

96 

s 

ON-PROC 

11 

36 

s | 

CASE 

11 

95 

s ; 

IF-THEN 

14 . 

.57 

s I 


Table 3. 


The first timing is deceptive, because when the 
subroutines are placed at the end of a 1000 
line program, the time increases to 12.16 s, 
while the others remain unchanged. 

VARIABLES AND EXPRESSIONS 

One of the best ways to speed up a 
program that performs lots of arithmetic is to 
use Integer variables wherever possible. In 
particular, the resident integer variables, A%- 
2%, are very fast. As a comparison, 
incrementing A% from zero 100000 times takes 
8.20 s, while using a% as the variable takes 
8,42 s, and using the real variable A takes 
10.24 s. Obviously, where all calculations 
involve only integers, it is sufficient simply to 
ensure that all the variables used are integer 
variables. Incidentally, beware of using /. This 


Make sure that you use Basic Vs new 
matrix instructions wherever possible. These 
are significantly faster than programming your 
own FOR-NEXT loops to handle each element 
separately. For example, incrementing each 
element of a 10 by 10 matrix, an element at a 
time, for a total of 10000 times takes 175 
seconds, while doing the same incrementing 
with a whole array operation takes just 24 
seconds! Similarly, the use of « and » for 
shift operations is quicker than using 
multiplication and division. 

When using string variables, even wilh 
Basic V. it is always best to initialise them to 
their maximum length at the start of the 
program. Otherwise, when the length of a string 
expands, Basic has to allocate more space, 
and this all takes time. 

Variable names themselves should be kept 
as short as possible for extra speed. It is much 
quicker to locale a single letter variable name 
than it is to find a ten character name. Because 
of the way in which Basic stores variables, the 
names should also be distributed across the 
alphabet. For example, don't start all variable 
names with an 'A 1 , 

CONCLUSION 

Hopefully, the suggestions given above will 
enable you to squeeze the most out of your 
Basic V programs. However, as they say, ‘You 
don’t get owl for nowt\ and coding a program 
for speed will quite frequently have an adverse 
effect on its length or legibility. 

As a final word, it doesn’t matter how much 
you try and speed up a badly written program, it 
will never be as efficient as it could be. You 
should, therefore, concentrate on developing 
efficient, fast, algorithms at the outset, and then 
code them to run quickly, as the potential 
benefits are much greater, pjn 
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Dabhand 

User 

News 

Alerion is the first tra¬ 
ditional shoot-em-up 
game for the 
Archimedes brought to 
you by the experts: 
David Atherton and 
Bruce Smith, Written 
in ARM machine code 
it uses the spectacular 
speed, sound and 
colour of the Archi¬ 
medes. We reckon that 
it's impossible to finish 
and will give you 
hours of addictive fun 
for just £14.95, 

If you're a serious user 
then our 368 page 
Dabhand Guide on 
Archimedes Assembly 
Language is an abso¬ 
lute must and is 
packed full of informa¬ 
tion and advice on pro¬ 
gramming the Archie. 
DONTMISS our 
advert in next month's 
issue of Rise User for 
full details on a major 
new product for the 
Archimedes that is sure 
to change the way in 
which you write and 
run your BASIC pro¬ 
grams. 

If you can't wait until 
then just write or 
phone us for our new 
catalogue which details 
SIX new products for 
the Archimedes. And 
it s absolutely free of 
charge. Act now! 


Archie Arcade Action! 

"A welcome return to the traditional shoot-em-up” 


Aier 


Alerion - an eagle without beak or feel is i 
the Amlurian term for impossible and the ! 
cod era me for your m issiun i rt this oxci ti ng : 
all action game. 

Your space-fighter is equipped with revo¬ 
lutionary new equipment, not least a new 1 
rad a r cloaki n g system wh ich renders you 
invisible, a holo¬ 
graphic target- 1 
ing system and 
unlimited fire 
power, To suc¬ 
ceed your task is 
quite simple 
blow the living 
daylights out of 
anything that 
moves! 

You have a 
bird's eye view 
of the action, 
your space- 
fighter flying 
over the varied 
enemy terrain, 

scrolling effortlessly beneath you. This is 
done by using the impressive 256 colour, 
high resolution mode. The game screen is 


refreshed 25 limes a second by using two 
80k screens in a highly innovative fash¬ 
ion, where one is dedicated to update 
while the other is used solely for display 
purposes. There is therefore no messy 
screen swapping. Just as impressive is 
the use of digital sounds which were 

__sampled from 

professional 
sources giving 
the game an au¬ 
thentic feel, 
Alcricm is a wel¬ 
come return to 



the most popular 
of all computer 
games but utili¬ 
sing the power 
speed, sound (not 
A305)and superb 
graphics only 
available on the 
fastest micro in 


Alerion costs £14.95 
and is available now! 


Archimedes Assembly Language: A Dabhand Guide 

The first book specifically written for the Archimedes to provide a complete guide 
to programming the Archimedes in machine ct>de. Whether you are an Archimedes 
owner, a user, or just interested in the A KM chip this book is the definitive guide, 
fn a massive 368 pages, author Mike Ginns provides a clear, step by step account of 
using the assembler. Many simple, useful, documented programs provide the 
practice to illustrate the theory making it ideal for the beginner. 

Here's what Rise User said in their review: "The style of the text throughout the book is 
easy to read. Good, dear diagrams are used te make explanations easier. I would recommend 
Archimedes Assembly Language..." At just £14.95 this Dabhand Guide represents full 
value for money. A programs disc is available for£9.95 or the two may bo purchased 
for £21.95 when ordered together A vail able‘from all good ! 

C: A Dabhand Guide bookshops 

This superb 512 page book is one of the publications of 1988 and provides a step-by- 
step introduction and programming guide to C on the Archimedes. Bcebug had this 
to say: iwifc being full ojf good advice about program design and layout...a very good, 

resontibly priced introduction to C for the non specialist " Book £14.95. £21.95 with disc. 

Free : New Catalogue and Ordering Details 

W rite to us, phone us, or sc nd u s a m a i [box a nd we wi 11 sen d you, f roe of cha rge, our 
information packed catalogue giving full details of all our current and some of our 
forthcoming Archie products. We'ti also send youdetail^of new books and software. 
Send cheques, POs, official orders to the address below, or quote your Access/ Visa 
card number and expiry date. Credit card orders accepted by phone, letter or 
mailbox. P&P free in IJK/BFPO, Elsewhere add £2.50 or £12 airmail. 

Dabs Press (RU>, 5 Victoria Lane, Whilefield, 
Manchester, M25 6AL. Phone 061-766-8423 (24 hours! 
Prestel 942876210 - BT Gold 72:MAG11596 
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This Month: Branch Instructions, Subroutines and Stacks. 


SIMPLE BRANCHING 

The ARM has a very straightforward branch 
instruction which causes a program to branch 
to the address given. The instruction takes a 
single parameter, which may be any logical 
address in the ARM's memory map, or any 
expression (such as a label) which yields an 
address at assembly time. This address must 
of course be word-aligned. For example: 

b loop 

As with all ARM instructions, any of the 16 
condition suffixes may be appended, yielding 
instruction mnemonics highly reminiscent of 
6502 assembler: 

BNE loop 

BEQ loop 
and so on. 

There are two points worth noting in 
connection with the branch instruction. The first 
is that on assembly, the assembler always 
generates a position independent branch 
instruction, expressing the destination address 
relative to the PC. Secondly, each branch 
instruction carries a timing penalty because 
pipelining is lost. With the ARM’s pipelining, 
remember, the processor simultaneously 
performs the current instruction while decoding 
the next, and fetching the one after. Clearly if a 
branch is executed, the results of the advance 
decode and fetch operations must be 
jettisoned. A branch instruction carried out in 
RAM on an 8 MHz ARM takes 500 
nanoseconds compared to 125 nanoseconds 
for an MOV, ADD or SUB instruction, 

BRANCH WITH LINK 

There is just one variant of the branch 
instruction: Branch with Link (BL). It is identical 
to the normal Branch instruction in every way, 
including timing, except that it places the 
contents of the program counter into register 14 
immediately prior to branching. It can thus be 
used to implement subroutines, since the 


contents of R14 can be used as a return 
address. To return from the subroutine, all you 
need to do is to move the contents of R14 back 
into the program counter. The ARM itself 
handles all the problems caused by pipelining, 
and the programmer does not need to correct 
the return address in any way. Thus the 
following implements a short subroutine called 
beep: 

cm? ro,H20 

BLLQ beep 

; Rest of code 


.beep 
SWI 256+7 
MOV FC,R14 

Mote that the branch with link is used with 
the LO suffix so that the subroutine is only 
executed if R0 contains less than &20, The 
subroutine itself produces the beep by 
executing the equivalent of VDU7. It then 
moves R14 back into the program counter, and 
so returns to the main body of the program. If 
you wish to restore the flags to the condition 
prior to the subroutine call, you should use an 
H S" suffix in the return instruction: 

MQV5 FC,R14 

otherwise the state of the flags on return will be 
those resulting from the subroutine itself. Of 
course in this simple example the flags play no 
part, and the routine does so little that it would 
have been much more efficient to have 
replaced the subroutine call with; 

SWILO 256+7 

Generally speaking, subroutines are used to 
make a program more modular, and therefore 
easier to follow, and also to avoid the 
duplication of frequently used pieces of code. 
But a Branch with Link (with accompanying 
return instruction) carries a 1 microsecond time 
overhead, and should be avoided in time-critical 
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parts of a program. One further application of 
Branch with Link is to be found in Basic's CALL 
statement and USR function. Both of these 
store a return address to Basic in R14 before 
executing the specified user-supplied machine 
code routine. This is why we use the 
instruction: 

MOV PCjr III 4 

to return to Basic at the end of each machine 
code program. 

STACKING RETURN ADDRESSES 

In practice, subroutines wilt play a major 
role in most machine code programs, and will, 
moreover, be nested where appropriate. In 
such cases, we cannot permanently store alt 
return addresses in Hi 4 - since each would 
overwrite the last. Indeed, even calling one 
subroutine would cause Basic’s return address 
to be lost. We must therefore implement a 
stack, pushing return addresses onto the stack 
when a subroutine is called, and pulling them 
off when a return is made. 

En keeping with its reduced instruction 
design philosophy the ARM has no dedicated 
stack, but provides instructions which allow the 
user to create his own. The key to this is the 
multiple load and store instructions introduced 
last month. An example will help here: 

/Main program 

5TMFD R13!,{RI4) 

BL subroutine 

/Rest of program 


LDMFD R13!, fPI4} 

MOV PC,R14 /Return to Basic 

.subroutine 
/Subroutine code 
MOV PC # HI4 

The only real difference between this and 
the previous example is that the main program 
begins by stacking the contents of R14, and 


restores this register immediately prior to 
returning to Basic. This is achieved by using 
variants of the multiple load and store 
instructions. The two suffixes, F and D 
determine that the stack should be Full, and 
Descending. This is the Acorn standard, and 
simply means that the stack pointer points to 
the last full location, and that the stack grows 
downwards in RAM. The other two possible 
suffixes are E (for empty) and I (for 
incrementing), but these options are very rarely 
used. 

Incidentally, note the use of the T symbol after 
R13 in the stack instructions. This ensures that 
right-back occurs, and that register R13 is 
updated each time the stack is accessed. 
Because Basic uses the same T symbol as an 
indirection operator, the assembler will get 
confused if you use a variable name for R13 
when specifying right-back. Thus: 

LDMFD Stack!,{R14} 

will be misinterpreted. To avoid this, use 
parentheses: 

LDMFD (stack)j,(R14} 

You will see that we have used register R13 
as the stack pointer, and that we have not 
assigned a value to its contents. This is 
because Basic uses R13 as a stack pointer, 
and an area or RAM is thus already assigned 
by Basic for stack use. Before returning to 
Basic we must therefore always ensure that we 
leave the slack in exactly the same state as we 
found it. 

The other implication of this is that you 
should not generally use register R13 for 
anything else, because when you return to 
Basic, if the contents have changed, then any 
stacked addresses, such as procedure return 
addresses, and so on, will be lost, and Basic 
will report an error. 

In our example above, the last two 
instructions In the main program are: 

LDMFD R13!,(R14} 
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MOV PC,R14 

These could be combined to give the single 
instruction: 

LDMFD R13!,{FCJ 

This simply restores the top address on the 
stack to the program counter, rather than 
restoring it to register 14, and then moving it 
into the program counter. !f you want the flags 
to be restored in a multiple load instruction, you 
can add a final circumflex character, thus: 

LDMFD R13!, (PCP 

This can be used with any variant of LDM in 
which the program counter is one of the 
destination registers, 

NESTED SUBROUTINES 

ft may not have escaped your notice that 
the subroutine in our example above does not 
stack R1 4 l This is pedectly ok providing that 
the subroutine does not itself call another. 
Where this occurs R14 should be slacked in 
exactly the same way as in the main routine. 
Thus: 

;Main program 
5TMFD R13! r {Rl A ) 

EL firstsub 

LDMFD RISE,{PC} ;Return to Basic 


♦firstsub 
STMFD Rl3! f {Rl4} 

BL secondsub 

LDMFD R13!,(PC} ;Return from 1st sub 


.secondsub 
; code 

MOV PC,HI4 ;Return from 2nd sub 

If you need to add a third level of nesting, then 
the second subroutine wifi also need to stack 
Rl 4. And there is something to be said for 
stacking R14 at the start of every subroutine, 
so that you cannot mistakenly nest deeper than 
you had intended. Of course there is a time 


overhead with the slacking operation. Stacking 
R14 takes 500 nanoseconds, while unstacking 
directly into R15 takes 800 nanoseconds. 
Avoiding this overhead on a frequently used 
piece of code can therefore pay dividends. 

STACKING MULTIPLE REGISTERS 

In the examples given so far, we have only 
used the stack to save the contents of R14, but 
any or alf of the ARM's registers may be saved 
in this way. The only thing to remember is that 
you must unstack the same number of registers 
that you stack, otherwise all manner of 
problems wifi arise. By stacking multiple 
registers you can of course ensure that a given 
subroutine preserves the state of registers for 
the main program. Having fifteen user registers 
at your disposal when programming the ARM 
gives considerable flexibility, but you can still 
easily run out of registers. However, by using 
the stack you can temporarily free registers R0 
to R12 for the duration of any subroutine. As an 
example, the subroutine below preserves 
registers R0, R6, R7 t R8 and R14: 

.main program 

STMFD R13E,{Rl4 > 

BL subroutine 

LDMFD R13!,{PC} 


,subroutine 

STMFD R13!,fR0,R6-R8, Rl41 

; s ub rQ ut i ne co de 

LDMFD R13!,(R0,R6-R8,PC) 

The important thing to note is that the registers 
stacked are the same as those unstacked, 
except for R14 which Is replaced by PC to 
effect a return to Basic, 

Subroutines and register stacking are thus 
easily accomplished if you follow the few simple 
examples given in the article. Next month we 
will look at shift and rotate operations, all 
performed without time overhead thanks to the 
magic of the ARM's Barrel Shifter. m 
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Ian Burley, News and Features Editor of Micronet, takes a Jong hard look at U-Connect* 
which was the first commercial comms package to be released for the Archimedes, 


Magenta Research has one claim to fame 
with their U-Connect comms package - it was 
the very first commercial package to be 
released for the Archimedes. Magenta 
Research's main line of business is developing 
communications solutions for mini and 
mainframe systems, often running Unix. Thus 
Magenta had a ready-made library of core 
routines written in C which could be ported to 
Acorn ANSI C on the Archimedes. The bulk of 
Magenta's work on U-Connect has been in 
grafting their routines to Arthur 1.20 and the 
WEMP desktop. 

In May, version 1.02 as tested here was 
released, and though this is the official current 
release, Magenta tell me that they are collating 
existing users 1 comments in order to release a 
further improved U-Connect in a couple of 
month’s time. To be quite frank, an improved 
version is an absolute necessity in my view if 
Magenta want to compete successfully in the 
Archimedes communications market. 

U-Connect uses the standard Archimedes 
WIMP desktop and some vibrant colours have 
been chosen to give the screen layout a bit of 
life. It could be argued that the choice of 
colours, i.e. lots of reds, and purples combined 
with brighter whites, yellows and cyans, are a 
bit hard on the eye. A petty point some might 
think, but it has been proven through 
behavioural research that bright colours hasten 
fatigue in front of VDU screens. The icon 
designs aren’t very indicative of their function 
either, and on the whole look rather inexpertly 
put together 

While presentation might not win U-Connect 
any prizes, functionality Is not at all bad. 
Specifications are pretty good with scrolling text 
teletype, VT52, VT100, and P re si e I/Viewdata 
emulations on offer ASCII, X-Modem T Kermit, 
and even Y-Modem file transfers are already 
available, with more planned. GET telesoftware 
in viewdata mode can also be downloaded. 
Kermit operation currently doesn't support 
multiple file transfers, and its implementation 
appears sluggish in response to commands. 


Scrolling text emulations are offered in a 
full-width window with black text on a white 
background. In VT100 mode the host can 
invoke a 132 column display via an Escape 
sequence, though this is shown via a left-right 
scroll window instead of using one of the 
Archimedes' built in 132 column screen modes. 
A ncn-functioning 132 column icon option 
remains as a relic of an abandoned attempt at 
an alternative user-selectable 132 column 
display. 



recreation 
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A small but handy feature missing from U- 
Connect is the ability to segregate incoming text 
from that being entered at the terminal. Comms 
packages which offer this windowed text mode 
make online multi-user game playing much 
easier as text you are typing won’t get 
obliterated by text being simultaneously 
received. 

File transfers are neatly handled by 
dedicated dialogue/status boxes where the 
filename of a file to be transferred can be 
entered and its progress monitored in bytes, 
blocks and time spent. Worth mentioning is the 
fact that files are not automatically saved to disc 
after a download. J personally believe that the 
priming of the filing system should be 
performed before the download starts rather 
than after, so that there is no delay in 
automatically saving the file to disc after the 
transfer is completed. 
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U-CONNECT FROM MAGENTA RESEARCH 


The viewdata emulation is best described 
as a compromise. Magenta have opted for a 40 
column black background window, i.e. only half 
the width of the screen, and only the viewdata 
mosaic graphic character set has been re¬ 
defined, Separated graphics are not supported 
either, although double height is. Flashing 
colours are crudely implemented, and simple 
tests like Prestel’s 'shaking hand' mailbox 
frame are poorly displayed. 

Editors for both the viewdata and text 
modes are mentioned in the on-screen help 
display, but not implemented. Therefore U- 
Connect is not capable of editing and compiling 
off-line mailboxes. Even on-line, you are faced 
with the problem of the viewdata emulation 
failing to keep up as the cursor traverses 
dynamically. To make many colour or graphic 
alterations in the preparation of a mailbox on¬ 
line requires much re-displaying of the frame. 

A small numeric pad window is provided for 
keying the star (*) and hash {#) keys, and page 
numbers, but there is no facility for direct 
keying of routes in a frame with the mouse 
pointer. 

U-Connect T s modem support is fairly 
comprehensive, with drivers supplied for dumb 
modems, smart modems including Hayes 
types, and software pulse dialling modems 
such as the original Demon modem, or the 
related Magic modem, etc. 

Smart modem support offers the usual 
options for modem initialisation, dial-up strings, 
and modem connect/disconnect status. Modem 
driver files are reconciled with the built-in 
telephone directory for automatic dial-up and 
log-on as required. No phone unit cost display 
is offered, though an on-line status window and 
clock can be clicked up. Audible beeps are 
emitted by U-Connecf when a carrier is either 
detected or lost - quite a nice touch, and it can 
be switched off if you don’t like it. 

U-Connect can be booted up either by using 
Shift-Break in the usual fashion, or by using the 
WIMP desktop, but the user will have to modify 
the supplied 1BOOT file to install the essential 
RS423 driver bug-fix module. Magenta's 
excuse for not making the installation of the fix 


automatic is that it isn T t possible if the machine 
is in Baste - a lame excuse if ever I heard one. 
However, care should be taken with the IBOOT 
setup as Magenta have opted for ADFS macro 
commands and a proper disc name. 1 
accidentally deleted the disc name from within 
one macro and virtually disabled the disc! 



That about wraps up U-Connect. If if were 
the only terminal package around for the 
Archimedes I might grudgingly accept it. 
However, as It is, the package doesn't stand up 
to comparison with the likes of Hugo Fiennes' 
ArcTerm 6,01, or the standard-setting BEEBUG 
Hearsay package. The only really kind thing I 
can say about U-Connect is that it is relatively 
simple to use and I didn't have to scurry off to 
the 52 page manual all the time. 

Magenta's Brian Smith has assured me that 
the next release of U-Connect, which will be 
available free to all existing registered users, 
will have major improvements including a 
completely new viewdata section. I await this 
with interest, but in the meantime the sad fact is 
that at almost £60, U-Connect is the most 
expensive Archimedes comms package and far 
from the best. nm 


Product 

U-Cormecl Terminal Emulator 

Supplier 

Magenta Research 


5th Floor, 


Amp House, 


Dingwall Road, 


Croydon CRO 9XA, 


Tel. 01-630 2585 

Cost 

£59.95 inc, VAT and p&p 
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Why pay for expensive font cartridges for your 
24 pin printer when you can Design your own 
user definable characters and download them 
with this simple to use designee 


You can invert, rotate, store and re-edit your 
characters and save and load them to disc. 
***** 

Three fonts are supplied on the disc : Greek, 
Normal and Sideways fonts. 

You can design up to 96 different characters. 


Price £9.95 including U.K. postage and 
packing. 


Cheques made payable to A, Barr. 


M. A. Barr, 

12 Pembury Avenue, Worcester Park, 
Surrey KT4 8BT, 


ADVERTISING IN 
RISC USER 


RISC User has the largest circulation of any 
magazine devoted to the Archimedes. 

In fact, we believe over 80% of Archimedes 
owners are regular readers. 

RISC User is therefore the ideal medium for 
advertising all products for the Archimedes 
to a discerning and committed readership. 
With nine issues of RISC User successfully 
complete we can now offer advertising space 
at attractive rates. 


To find out more, contact 

Yolanda Turuelo 
on (0727) 40303 
or write to 
RISC User, 
Dolphin Place, 
Holywell Hill, St Albans, 
Herts AL11EX. 
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Acorn's Kermit 


Ian Burley reports on Kermit, the file transfer protocol, and in particular on Acorn's 
implementation for the Archimedes. 


Kermit is the name of a file transfer protocol 
which is used widely for transferring files 
between different machines. It has its origins at 
the University of Columbia, USA. Why name a 
file transfer protocol after a silly green frog 
puppet? The Kermit User Guide (Sixth Edition, 
by Columbia University's Francf da Cruz) 
published here by Acorn fails to explain this, 
but does appear to cover virtually everything 
else you might want to know about this slightly 
mysterious file transfer utility. This is just as 
well, because for your £56 you are really 
paying solely for the manual - the actual Kermit 
software (supplied on disc by Acorn) Is 
available free from its nominated distributors, 
and in the UK you can download Acorn 
versions of Kermit for various machines, 
including the BBC B and Archimedes, direct 
from the University of Lancaster. 

Kermit has been around since 1981 and 
was developed at Columbia University for file 
transfers between their DEC System 20 
mainframe and various CP/M micros around 
the campus. XMODEM and similar error 
checking protocols have been around much 
longer, but full implementations of Kermit don't 
simply provide an error checking protocol, but a 
complete easy-to-use environment for sending 
and receiving files between two computers. 

Acorn's version of Kermit for the 
Archimedes was ported over from the old Acorn 
Cambridge Workstation (CWA), a National 
Semiconductor 32016 machine running Acorn's 
own in-house PANOS operating system. Very 
little effort has been made to tailor the Kermit 0 
source code from the ACW to the Archimedes. 
!n other words, the program runs very simply, 
totally avoiding the desktop, and Kermit 
commands must be typed into a simple prompt. 
A VT52 compatible terminal emulation is 
provided for communicating with the selected 
host machine or server, and Archimedes Kermit 


also has the basic tools to operate as an 
automatic server itself. In other words, another 
micro could attach or log on to your Archimedes 
and control the Archimedes' Kermit remotely 
This is fine if you are connected up locally via a 
null modem cable, but Archimedes Kermit 
offers no built-in auto answer modem support 
whatsoever. 

These basic features mean that Archimedes 
Kermit is a very traditional implementation of 
Kermit, and one which Columbia University 
would probably readily recognise and be at 
home with. However, the plain fact is that the 
Archimedes* conversion is to say the least 
rudimentary [you can't even click on the Kermit 
program from the desktop to get going), and the 
fact that many embellishments like modem 
support are missing means that this offering is 
not realty superior to the built-in Kermits of 
proprietary Archimedes comms software such 
as ArcTerm and BEEBUG's Hearsay (see RISC 
User Issue 9). 

Hardened Kermit enthusiasts will no doubt 
find Acorn Kermit fascinating to get into, and 
certainly there is a lot to say about Kermit in 
general for which there isn't adequate room 
here, but the conclusion is that Acorn's package 
cant be recommended. Kermit is an excellent 
vehicle for file transfers (this article was edited 
on a BBC Master and transferred to an Apple 
Macintosh using Kermit), But if you really want 
to get hold of it, download it for free from 
Lancaster University - and I'm only repeating 
the advice of an official Acorn spokesman! 


Product 

Kermit 

Supplier 

Acorn Computer Ltd 


Fulbourn Road. 


Cherry Hinton, 


Cambridge CB1 4JN. 


Tel. (0223) 214411 

Price 

£56.35 inc. VAT. 
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The Computer Concepts FAX PACK 
adds the power of the Archimedes 
computer to a FAX machine. It includes 
the following features: 


A 

A 


A 


A FAX modem podule that 
simph plugs into any 
Archimedes computer, and 
then into any standard 
telephone socket It is 
possible to connect a 
conventional phone in 
parallel. 

Software which allows 
character based output 
trnm a variety of word 
processors to he converted 
to a FAX file format 
suitable for sending to any 
group A FAX machine. This 
can also convert SPRITES 
and other graphic hies to a 
FAX format file. Si* it is 
possible to send screen 
dumps or text files, not 
only to other machines, 
hut also to am group S 
FAN machines. 

Vuto dial allows other 
computers or FAX machines 
to he dialled hy tin 
computer Either a phone 
number or a name can he 
specified. Names .ire looked 
up in a phone number 
directory hie to obtain the 
correct numhet 


A 


FAX PACK FOR 
THE ARCHIMEDES 



■ he popularity* of FAX 
I I machines has increased 
A I to such an extent during 

the last twelve months that 
they now outnumber TELEX machines. 
In today's successful business, a FAX 
machine is as vital a piece of office 
equipment as a telephone. 


A 


FAX images may he viewed 
mi screen, within a 
window, where they nia\ be 
scaled scrolled, cropped 
etc., and then saved again 
as a FAX hie. Facilities an 
included for printing out 
FAX tiles on a variety of 
dot matrix printers, 
including the most common 
q and 24 pin versions. 


Since FAX modems work al 
Winn hits per second, fills 
allows direct tile translei at 
least 4 times as last as tlu 

fastest convent uniat 
modems Indeed am tile 
can be auloiiiaticallv sent 
or obtained I rum a remote 
machine 


-3 Jjj 


A 


The suit ware automatically 
detects the tvpe and group 
ot machine dialled. It can 
also delect a suitably FAX 
equipped computer If u 
other end. similar to this 
compute! then it can avoid 
the FAX protocols and 
transmit the tiles, error 
checked, directly to the 
remote machine 

\oii* dial and auto answer 
hardware which sends or 
receives am gn*up t FAX. 
and saves mi the euricnt 
filing >\ sum as a siolahlc 
FV\ tile 


Most lacilities are available from simple 
logical star commands, such a> *I)IAI. 
Fred and ’SendFAX file office 

FAX PACK INCLUDES: 

The I*\\ podule t»»r plugging into any 
Xrehimedes computer. Kitted with a 
b.iek plane i and software as described 
ahi rve 

There is also the option ot a 2kk dpi. A4 
width, hand held document scanner, 
which plugs into the FAX podule. The 
scanner unit allows any printed 
document to he digitised and saved in a 
suitable FAX tile formal. In other 
words, this svstem provides an economic 
alternative to stand alone FAX machines 
with the added advantage of the 
Vuhimcdcs computer and asx*ciated 
software 

Price 14‘iq plus \AT or i7o*» plu> VAT 
with the seaiimi 

l‘lru\r fthntir fot .<• mhihilit) 
i Vui" \ Huretavt.uJ atsepkili 


A fit Pack DocuiwnlSca 


B.T. APPROVED 


Computer Concepts Ltd 


(.addesden Place Hcmrl Hempsirad Herts HP2 6EX Telephone 0442 63931 
(Acres* Sr Bartlavcard accepted) 





We welcome your letters for publication on our Postbag 
page whether they contain comments on the magazine 
and the Archimedes , technical queries or information for 
other readers l 

BASIC BUGS 

While converting a Basic program from the Master 128 to 
an Archimedes, I came across an interesting bug in Basic 
V, The problem occurred in a line similar to: 

1GTIME“Q:Q%-INKEY(300)-’64:IF TIME>= 
300 PRINT "TIME" ELSE IFQ%<-1 THEN 10 

If this fine is executed, and the Escape key is pressed 
within three seconds, the whole computer hangs up. This 
can be cured by splitting the line into two, and also, the 
problem does not occur if the '-64" is removed. This bug is 
specific to Basic V. and does not occur on the Master 128, 

JC Gardner 

Thank you to Mr Gardner for pointing this out. Obviously, 
this bug is very obscure, and untikeiy to cause any major 
problems. However ; it is always useful to be aware of 
such problems. 

FASTER SPHERES 

Having entered the listing from the Archimedes Visuals in 
Issue 8 to draw mode 15 spheres. I was rather shocked 
by how slow the program ran. I decided to try and improve 
the speed, and to my surprise this proved easier than I 
expected. Firstly, the procedure consists of two nested 
loops, and the variables P2% and D2 are both calculated 
inside the second loop, when they can in fact be removed 
outside that loop. Line 280 of the original ensures that 
both D1 and D2 are positive, when in fact they are both 
squared in the next line, making this unnecessary. 

Once these changes have been made, the calculation is 
simplified to the point where the temporary variables Pi% 
and P2% can be removed Further, both D1 and D2 can 
be made integers, and the squaring of D2 can be moved 
outside the inner loop. Finally, the use of OlV in line 240 
can be removed, as the integer arithmetic will perform the 
rounding. This results in the new procedure: 

DEE PROCsphere (col%, rad%, Ll%,L2% r pix%J 
FOR Y%=rad% TO -rad% STEP -4 
A^SQR(rad%*rad%-Y%*¥30 
im-DEG ASN {Y% / rad %) -L2% 


D2%“D2%*D2% 

FOR X%”-A% TO A% STEP pix% 

D1%-DEG ASN(X%/rad$)-Ll% 

C%“7.99-SQR(Dl%*Dl%+D2%)/14-RND(1 } 
IF C%<Q C%=0 

GCOL G,col%-MC% AND 4) *5*25 TINT 
EC% AND 3)*64 
PLOT 69,X%,Y% 

NEXT 

NEXT 

ENDPROC 

Richard Davies 

The reason why the published routine was so stow is that 
it draws the sphere pixel by pixel, calculating the shading 
required for each. In this context the 20% speed increase 
provided by Richards amendments is most welcome 
Our article on faster Basic in this issue gives more 
detailed guidance on improving the speed of programs. 

EXEC ERRORS 

I have been trying to enter £XEC files by using the 
*BUJLD command, and then setting the file type to &FFE, 
as suggested in Hints and Tips of Issue 1, However, I 
seem to run into problems when trying to insert the | or V 
characters into a file Can you help? 

P. Gadd 

Mr Gadd's problem is one that confuses many users 
both experienced and novice, tn order to allow control 
codes to be entered into a command tine , the operating 
system reserves T as a special character if ')* is followed 
by a tetter, then it will have the same effect as pressing 
that letter with the conf.ro/ key. For example, !M in a 
command line wifi simulate the Return key being 
pressed. Similarly , V is also treated as a special 
character, It is used to enter operating system variables, 
or ASCII values, into a command tine. 

The problem is, that when you try to enter these two 
characters into an EXEC file, the ‘BUILD command ptcks 
them up first and interprets them with their special 
meaning. The cure is to add an extra T before both J 
and V. In other words. T becomes *jj\ and '< is j<\ tt the 
EXEC file is listed with ‘TYPE or *LIST, the extra T$ will 
be shown , but when it is executed it will be interpreted 
correctly. jTjjj 
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David Spencer rounds up the latest hints and tips for the Archimedes. 


LOCATING THE MOUSE 
Lee Calcraft 

If you are using the mouse to select options in any 
program, you should find the following procedure very 
handy. Its purpose is to determine whether or not the 
pointer is located within any given rectangle on the 
screen. It is called with six parameters, as follows: the x 
and y co-ordinates of the pointer, the x and y co-ordinates 
of the bottom left-hand corner of the target rectangle, and 
its width and height respectively. It returns the value 
TRUE if the pointer is within the rectangle, and FALSE if it 
is not. 

DEFFNisit there(mx,my,de stx,desty, 
destw, dtesth) AND 

mx<destx-i-destw AND my>desty 
AND my<desty+desth 

BOOTING FROM THE DESKTOP 
Geoffrey Waits 

Quite a few pieces of commercial software which are 
started with Shift-Break will fail to boot at alt when the 
Desktop is selected as the default language. This is 
because these programs try to ‘EXEC the BOOT file, and 
the Desktop totally ignores the characters read from the 
file. One simply way around this, provided you have fast 
fingers, is to press Shift-Break normally, and as soon as 
the Desktop's pointer appears on the screen move it to 
the bottom right hand corner. Then, as soon as the icon 
bar is drawn, dick on the 'Exit' icon, and the IBOOT file 
will then be executed. It must be stressed that these 
operations must be performed very quickly for this method 
to work. 

The official way to allow a disc to auto-boot from within 
the Desktop is to make the IBOOT file an executable 
program. This can either be a Basic program, or some 
form of machine code routine, depending on the filetype. 
For Basic, SAVE 'IBOOT 1 ' will set the correct filetype. The 
auto-boot option should then be set to RUN using the 
command ‘OPT 4,2, 

MOVING FILES 
David Pilling 

One way of moving a file from one directory to another is 
to use the ‘COPY command, and include the f D' option to 
delete the source file after it has been copied. This, 
however, can be quite slow, because the COPY 


command actually moves each byte of the file. A much 
better solution is to use ‘RENAME, which can be used to 
change the entire pathname of a file, rather than just its 
filename. For example, to move a file called DATA from 
the root directory to the sub-directory FINANCE, you could 
use: 

*RENAME $.DATA $,FINANCE,DATA 

This is much faster, because only the directory entries are 
changed; the actual file contents are unlouched. This also 
means that the new file is in the same place on the disc, 
which can be useful in some circumstances. The only 
problem of this method is that you cannot use ‘RENAME 
to move a file between different discs, or even different 
filing systems, while ‘COPY will cope with both of these, 

DEBUGGER BREAKPOINTS 
Dr P, Borcherds 

The Debugger module in Arthur provides a useful 
breakpoint facility. However, it can be tedious to discover 
the address at which a breakpoint should be set, and then 
to set it The method given here simplifies the process. 
The first step is to insert the line: 

DIM break(16):brk%=Q 

at the start of the source code program, and the function 
definition; 

DEF FNbreak brk^+=l 
[OFT pass : .break (brk%) BNV 0:]- lf " 
at the end of the program. The variable 'pass' should be 
replaced by the name you have used for the pass counter. 
Obviously, you must ensure that the new variable names 
do not conflict with any already used in the source code. 

To define a breakpoint, simply insert the line: 

EQUS FNbreak 

in the source code wherever you want to set a breakpoint. 
Up to 16 breakpoints may be set. The source code is then 
assembled in the usual way. 

Finally, before the assembled machine code is called, the 
actual breakpoints must be set up. This is best handled by 
defining a function key to perform the job, thus: 

*KEY I *BREAKCLR|MYFQR I%=1T016: 
IFbreak(I%) OS CLI n BREAKS E T" 
lSTR$-breakfl%): NEXT ELSE NEXT|M 
*BREAKLISTJM 

If function key 1 is then pressed immediately after 
assembling the program, all the breakpoints will be set up 
and Ihen listed. 


46 


RISC User October 1988 




m 


fo 


October 1988 

RISC USER DISC MENU Make accessing your discs easy with this enhanced version of the RISC User Disc Menu. 

The disc contains the complete source code. 

DYNAMIC BOXING AND SPRITE GRABBER A useful procedure that allows you to select an area of the screen by 
using the mouse to drag a box around. The accompanying program lets you pick up part of a picture and use it as a 

paint brush. 


ARCHIMEDES ANIMATION 
Displaying a rotating 
molecule.The concept of using 
dual screens for smoother 
movement is also introduced. 

ARCHIMEDES VISUALS 
Two more graphics programs: an 
implementation of John Conway’s 
Life and a mode 12 beach ball. 

POINTER DEFINER 
Design your own pointers. The 
disc includes some samples. 



REAL TIME IMAGE SPINNER 
A program that can distort and 
rotate an image. 

RISC USER TOOLBOX 
An extended version of last 
month's disc sector editor to 
allow specified files to be 
edited. 

MOUSE CONTROLLED CURSOR 
This clever module allows the 
mouse to control the cursor, 
and simulate key presses. 


BONUS ITEMS 


PIPEDREAM 

From Colton software, producers of the Pipedream integrated word processor, comes this sample version of the 
package Most of the features except for Save and Print are included, as is full documentation. 

ALERION 

A demonstration version of Alerion, the new ’shoot-em-up’ game from Dabs press. 

RISC Us«r magazine discs are available to order, or by subscription. Full details of prices etc. are given on the back cover of each Issue of RISC User. 




WAITING FOR THE MOUSE 
Lee Calcraft 

In programs which make use of the mouse buttons, you 
need to take great care to flush the mouse buffer before 
taking any new reading . But you cannot simply use 
‘FX21.9 to flush the buffer, because of the speed of 
response of the mouse. The way around the problem is to 
use a waiting loop to halt your program until the mouse 
really is clear. The following routine performs the task. Its 
calling parameter is the button number for which the 
routine is to wait. This will normally be zero (meaning 
"wait until no button is pressed"). But it could equally well 
be any number from 0 to 7. Additionally, if the procedure 
is called with -1 (or TRUE) as the parameter, the routine 
will wait for any non-zero condition. 

DEFPROCmousewait (n) 

REPEATiMOUSE x%,y%,z% 
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UNTIL z%=n OR (n=-l AND z%>0) 
ENDPROC 


The procedure does not return parameters specifically, 
since this adds complexity. But once it has been called, 
the result of reading the mouse can be found in x%,y% 
and z% (z% being the button number of the last reading). 
If your program required a user input from the mouse on 
any button, you might use the following sequence: 
PROCmousewait (0) 

PROCmousewait(-1) 

The first call makes sure that the mouse is clear before 
checking for buttons. The second call waits until any 
button has been pressed. In effect this pair of calls gives 
the mouse equivalent of the keyboard’s: 

*fxis pm 

z%=GET 

47 











RISC USER magazine 



MEMBERSHIP 


MAGAZINE DISC 


The programs from each issue of RISC User are available on a monthly 3.5" disc. This will be available 1o order ; or 
you may take out a subscription to ensure that the disc arrives at the same time as the magazine. The first issue (with 
six programs and animated graphics demo} i$ a! the special low price of £3.75, The disc for each issue contains all the 
programs from the magazine, together with a number of additional items by way of demonstration, all at the standard 
rate of£4.75. 


MAGAZINE DISC PRICES 

Single issue discs 

Six months subscription 

Twelve months subscription 


UK 

£ 4J5 
£2550 
£50.00 


Overseas 

£ 4.75 
£30.00 
£56.00 


Disc subscriptions include postage, but 
you should add 50p per disc for 
individual orders. 


All orders, subscriptions and other 
correspondence should be 
addressed to: 


RISC User, Dolphin Place, Holywell Hill, St Albans, Herts ALT 1 EX, 
Telephone: St Albans <0727) 40303 

(24hrs onsworphono service for payment by Connect ; Access or Visa card) 




HHHnE 


Ml 


BACK ISSUES 

We intend to maintain stocks of back issues New subscribers can therefore obtain earlier copies to provide a 
complete set from Vol t issue 1. Back issues cost £t.20 each. You should also indude postage as shown; 


RISC User is available only on subscription at the rates shown below. Full subscribers to RISC User may also take out 
a reduced rate subscription to 8EEBUG (the magazine for the SBC micro and Master series). 


i All subscriptions, including 
overseas t should be in 
pounds sterling. We will 
j also accept payment by 
Connect, Access and 
Visa t and official UK 
orders are welcome. 


Destination 

First Issue 

Each subsequent Issue 


RISC USER 
& BEEBUG 

£23,00 

£33.00 

£40,00 

£44.00 

£43.00 


UK, BFPO, Ch.ls 

4Gp 

20p 


Europe plus Eire 

75p 

45p 


Elsewhere 

£2 
85p 


RISC USER SUBSCRIPTION RATES 


£14.50 

£20.00 

£25.00 

£27.00 

£29.00 


1 year (10 issues) UK, BFPO, Ch i 
Rest of Europe & Eire 
Middle East 
Americas & Africa 
Elsewhere 















